/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / emacs-complete / fsf / emacs / lisp / diary-lib.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 63 68 75 72 63 68 79 2e | 67 6e 75 2e 61 69 2e 6d |churchy.|gnu.ai.m|
|00000030| 69 74 2e 65 64 75 20 6f | 6e 20 46 72 69 20 53 65 |it.edu o|n Fri Se|
|00000040| 70 20 20 32 20 30 32 3a | 34 39 3a 30 37 20 31 39 |p  2 02:|49:07 19|
|00000050| 39 34 0a 3b 3b 3b 20 66 | 72 6f 6d 20 66 69 6c 65 |94.;;; f|rom file|
|00000060| 20 2f 67 64 2f 67 6e 75 | 2f 65 6d 61 63 73 2f 31 | /gd/gnu|/emacs/1|
|00000070| 39 2e 30 2f 6c 69 73 70 | 2f 64 69 61 72 79 2d 6c |9.0/lisp|/diary-l|
|00000080| 69 62 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |ib.el.;;|; emacs |
|00000090| 76 65 72 73 69 6f 6e 20 | 31 39 2e 32 35 2e 39 35 |version |19.25.95|
|000000a0| 2e 35 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |.5..;;; |bytecomp|
|000000b0| 20 76 65 72 73 69 6f 6e | 20 46 53 46 20 32 2e 31 | version| FSF 2.1|
|000000c0| 30 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |0.;;; op|timizati|
|000000d0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000e0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|000000f0| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000100| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000110| 20 31 38 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 18...(i|f (and (|
|00000120| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000130| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000140| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000150| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000160| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n)..    |
|00000170| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|00000180| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 31 39 |macs-ver|sion "19|
|00000190| 22 29 29 29 0a 20 20 20 | 20 28 65 72 72 6f 72 20 |"))).   | (error |
|000001a0| 22 60 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |"`/gd/gn|u/emacs/|
|000001b0| 31 39 2e 30 2f 6c 69 73 | 70 2f 64 69 61 72 79 2d |19.0/lis|p/diary-|
|000001c0| 6c 69 62 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |lib.el' |was comp|
|000001d0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001e0| 39 22 29 29 0a 0a 28 72 | 65 71 75 69 72 65 20 28 |9"))..(r|equire (|
|000001f0| 71 75 6f 74 65 20 63 61 | 6c 65 6e 64 61 72 29 29 |quote ca|lendar))|
|00000200| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 69 61 72 |.(defali|as 'diar|
|00000210| 79 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |y #[(&op|tional a|
|00000220| 72 67 29 20 22 c0 09 21 | c2 20 1b 89 1c 83 41 00 |rg) "..!|. ....A.|
|00000230| c5 5c 66 21 83 41 00 c6 | 5c 66 21 83 3b 00 c7 0b |.\f!.A..|\f!.;...|
|00000240| 0e 08 83 25 00 c9 0e 08 | 21 82 37 00 ca 0e 0b 21 |...%....|!.7....!|
|00000250| 83 35 00 0e 0b cc 0b 21 | 48 82 37 00 0e 0b 5c 22 |.5.....!|H.7...\"|
|00000260| 82 44 00 cd ce 21 82 44 | 00 cd cf 21 2a 87 22 20 |.D...!.D|...!*." |
|00000270| 5b 73 75 62 73 74 69 74 | 75 74 65 2d 69 6e 2d 66 |[substit|ute-in-f|
|00000280| 69 6c 65 2d 6e 61 6d 65 | 20 64 69 61 72 79 2d 66 |ile-name| diary-f|
|00000290| 69 6c 65 20 63 61 6c 65 | 6e 64 61 72 2d 63 75 72 |ile cale|ndar-cur|
|000002a0| 72 65 6e 74 2d 64 61 74 | 65 20 64 61 74 65 20 64 |rent-dat|e date d|
|000002b0| 2d 66 69 6c 65 20 66 69 | 6c 65 2d 65 78 69 73 74 |-file fi|le-exist|
|000002c0| 73 2d 70 20 66 69 6c 65 | 2d 72 65 61 64 61 62 6c |s-p file|-readabl|
|000002d0| 65 2d 70 20 6c 69 73 74 | 2d 64 69 61 72 79 2d 65 |e-p list|-diary-e|
|000002e0| 6e 74 72 69 65 73 20 61 | 72 67 20 70 72 65 66 69 |ntries a|rg prefi|
|000002f0| 78 2d 6e 75 6d 65 72 69 | 63 2d 76 61 6c 75 65 20 |x-numeri|c-value |
|00000300| 76 65 63 74 6f 72 70 20 | 6e 75 6d 62 65 72 2d 6f |vectorp |number-o|
|00000310| 66 2d 64 69 61 72 79 2d | 65 6e 74 72 69 65 73 20 |f-diary-|entries |
|00000320| 63 61 6c 65 6e 64 61 72 | 2d 64 61 79 2d 6f 66 2d |calendar|-day-of-|
|00000330| 77 65 65 6b 20 65 72 72 | 6f 72 20 22 59 6f 75 72 |week err|or "Your|
|00000340| 20 64 69 61 72 79 20 66 | 69 6c 65 20 69 73 20 6e | diary f|ile is n|
|00000350| 6f 74 20 72 65 61 64 61 | 62 6c 65 21 22 20 22 59 |ot reada|ble!" "Y|
|00000360| 6f 75 20 64 6f 6e 27 74 | 20 68 61 76 65 20 61 20 |ou don't| have a |
|00000370| 64 69 61 72 79 20 66 69 | 6c 65 21 22 5d 20 36 20 |diary fi|le!"] 6 |
|00000380| 22 5c 0a 47 65 6e 65 72 | 61 74 65 20 74 68 65 20 |"\.Gener|ate the |
|00000390| 64 69 61 72 79 20 77 69 | 6e 64 6f 77 20 66 6f 72 |diary wi|ndow for|
|000003a0| 20 41 52 47 20 64 61 79 | 73 20 73 74 61 72 74 69 | ARG day|s starti|
|000003b0| 6e 67 20 77 69 74 68 20 | 74 68 65 20 63 75 72 72 |ng with |the curr|
|000003c0| 65 6e 74 20 64 61 74 65 | 2e 0a 49 66 20 6e 6f 20 |ent date|..If no |
|000003d0| 61 72 67 75 6d 65 6e 74 | 20 69 73 20 70 72 6f 76 |argument| is prov|
|000003e0| 69 64 65 64 2c 20 74 68 | 65 20 6e 75 6d 62 65 72 |ided, th|e number|
|000003f0| 20 6f 66 20 64 61 79 73 | 20 6f 66 20 64 69 61 72 | of days| of diar|
|00000400| 79 20 65 6e 74 72 69 65 | 73 20 69 73 20 67 6f 76 |y entrie|s is gov|
|00000410| 65 72 6e 65 64 0a 62 79 | 20 74 68 65 20 76 61 72 |erned.by| the var|
|00000420| 69 61 62 6c 65 20 60 6e | 75 6d 62 65 72 2d 6f 66 |iable `n|umber-of|
|00000430| 2d 64 69 61 72 79 2d 65 | 6e 74 72 69 65 73 27 2e |-diary-e|ntries'.|
|00000440| 20 20 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |  This f|unction |
|00000450| 69 73 20 73 75 69 74 61 | 62 6c 65 20 66 6f 72 0a |is suita|ble for.|
|00000460| 65 78 65 63 75 74 69 6f | 6e 20 69 6e 20 61 20 60 |executio|n in a `|
|00000470| 2e 65 6d 61 63 73 27 20 | 66 69 6c 65 2e 22 20 22 |.emacs' |file." "|
|00000480| 50 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |P"]).(de|falias '|
|00000490| 76 69 65 77 2d 64 69 61 | 72 79 2d 65 6e 74 72 69 |view-dia|ry-entri|
|000004a0| 65 73 20 23 5b 28 61 72 | 67 29 20 22 c0 09 21 89 |es #[(ar|g) "..!.|
|000004b0| 1a 83 24 00 c3 5c 6e 21 | 83 24 00 c4 5c 6e 21 83 |..$..\n!|.$..\n!.|
|000004c0| 1e 00 c5 c6 c7 21 0e 08 | 5c 22 82 27 00 c9 ca 21 |.....!..|\".'...!|
|000004d0| 82 27 00 c9 cb 21 29 87 | 22 20 5b 73 75 62 73 74 |.'...!).|" [subst|
|000004e0| 69 74 75 74 65 2d 69 6e | 2d 66 69 6c 65 2d 6e 61 |itute-in|-file-na|
|000004f0| 6d 65 20 64 69 61 72 79 | 2d 66 69 6c 65 20 64 2d |me diary|-file d-|
|00000500| 66 69 6c 65 20 66 69 6c | 65 2d 65 78 69 73 74 73 |file fil|e-exists|
|00000510| 2d 70 20 66 69 6c 65 2d | 72 65 61 64 61 62 6c 65 |-p file-|readable|
|00000520| 2d 70 20 6c 69 73 74 2d | 64 69 61 72 79 2d 65 6e |-p list-|diary-en|
|00000530| 74 72 69 65 73 20 63 61 | 6c 65 6e 64 61 72 2d 63 |tries ca|lendar-c|
|00000540| 75 72 73 6f 72 2d 74 6f | 2d 64 61 74 65 20 74 20 |ursor-to|-date t |
|00000550| 61 72 67 20 65 72 72 6f | 72 20 22 59 6f 75 72 20 |arg erro|r "Your |
|00000560| 64 69 61 72 79 20 66 69 | 6c 65 20 69 73 20 6e 6f |diary fi|le is no|
|00000570| 74 20 72 65 61 64 61 62 | 6c 65 21 22 20 22 59 6f |t readab|le!" "Yo|
|00000580| 75 20 64 6f 6e 27 74 20 | 68 61 76 65 20 61 20 64 |u don't |have a d|
|00000590| 69 61 72 79 20 66 69 6c | 65 21 22 5d 20 34 20 22 |iary fil|e!"] 4 "|
|000005a0| 5c 0a 50 72 65 70 61 72 | 65 20 61 6e 64 20 64 69 |\.Prepar|e and di|
|000005b0| 73 70 6c 61 79 20 61 20 | 62 75 66 66 65 72 20 77 |splay a |buffer w|
|000005c0| 69 74 68 20 64 69 61 72 | 79 20 65 6e 74 72 69 65 |ith diar|y entrie|
|000005d0| 73 2e 0a 53 65 61 72 63 | 68 65 73 20 74 68 65 20 |s..Searc|hes the |
|000005e0| 66 69 6c 65 20 6e 61 6d | 65 64 20 69 6e 20 60 64 |file nam|ed in `d|
|000005f0| 69 61 72 79 2d 66 69 6c | 65 27 20 66 6f 72 20 65 |iary-fil|e' for e|
|00000600| 6e 74 72 69 65 73 20 74 | 68 61 74 0a 6d 61 74 63 |ntries t|hat.matc|
|00000610| 68 20 41 52 47 20 64 61 | 79 73 20 73 74 61 72 74 |h ARG da|ys start|
|00000620| 69 6e 67 20 77 69 74 68 | 20 74 68 65 20 64 61 74 |ing with| the dat|
|00000630| 65 20 69 6e 64 69 63 61 | 74 65 64 20 62 79 20 74 |e indica|ted by t|
|00000640| 68 65 20 63 75 72 73 6f | 72 20 70 6f 73 69 74 69 |he curso|r positi|
|00000650| 6f 6e 0a 69 6e 20 74 68 | 65 20 64 69 73 70 6c 61 |on.in th|e displa|
|00000660| 79 65 64 20 74 68 72 65 | 65 2d 6d 6f 6e 74 68 20 |yed thre|e-month |
|00000670| 63 61 6c 65 6e 64 61 72 | 2e 22 20 22 70 22 5d 29 |calendar|." "p"])|
|00000680| 0a 28 61 75 74 6f 6c 6f | 61 64 20 28 71 75 6f 74 |.(autolo|ad (quot|
|00000690| 65 20 63 68 65 63 6b 2d | 63 61 6c 65 6e 64 61 72 |e check-|calendar|
|000006a0| 2d 68 6f 6c 69 64 61 79 | 73 29 20 22 68 6f 6c 69 |-holiday|s) "holi|
|000006b0| 64 61 79 73 22 20 22 5c | 0a 43 68 65 63 6b 20 74 |days" "\|.Check t|
|000006c0| 68 65 20 6c 69 73 74 20 | 6f 66 20 68 6f 6c 69 64 |he list |of holid|
|000006d0| 61 79 73 20 66 6f 72 20 | 61 6e 79 20 74 68 61 74 |ays for |any that|
|000006e0| 20 6f 63 63 75 72 20 6f | 6e 20 44 41 54 45 2e 0a | occur o|n DATE..|
|000006f0| 54 68 65 20 76 61 6c 75 | 65 20 72 65 74 75 72 6e |The valu|e return|
|00000700| 65 64 20 69 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |ed is a |list of |
|00000710| 73 74 72 69 6e 67 73 20 | 6f 66 20 72 65 6c 65 76 |strings |of relev|
|00000720| 61 6e 74 20 68 6f 6c 69 | 64 61 79 20 64 65 73 63 |ant holi|day desc|
|00000730| 72 69 70 74 69 6f 6e 73 | 2e 0a 54 68 65 20 68 6f |riptions|..The ho|
|00000740| 6c 69 64 61 79 73 20 61 | 72 65 20 74 68 6f 73 65 |lidays a|re those|
|00000750| 20 69 6e 20 74 68 65 20 | 6c 69 73 74 20 60 63 61 | in the |list `ca|
|00000760| 6c 65 6e 64 61 72 2d 68 | 6f 6c 69 64 61 79 73 27 |lendar-h|olidays'|
|00000770| 2e 22 20 74 29 0a 28 61 | 75 74 6f 6c 6f 61 64 20 |." t).(a|utoload |
|00000780| 28 71 75 6f 74 65 20 63 | 61 6c 65 6e 64 61 72 2d |(quote c|alendar-|
|00000790| 68 6f 6c 69 64 61 79 2d | 6c 69 73 74 29 20 22 68 |holiday-|list) "h|
|000007a0| 6f 6c 69 64 61 79 73 22 | 20 22 5c 0a 46 6f 72 6d |olidays"| "\.Form|
|000007b0| 20 74 68 65 20 6c 69 73 | 74 20 6f 66 20 68 6f 6c | the lis|t of hol|
|000007c0| 69 64 61 79 73 20 74 68 | 61 74 20 6f 63 63 75 72 |idays th|at occur|
|000007d0| 20 6f 6e 20 64 61 74 65 | 73 20 69 6e 20 74 68 65 | on date|s in the|
|000007e0| 20 63 61 6c 65 6e 64 61 | 72 20 77 69 6e 64 6f 77 | calenda|r window|
|000007f0| 2e 0a 54 68 65 20 68 6f | 6c 69 64 61 79 73 20 61 |..The ho|lidays a|
|00000800| 72 65 20 74 68 6f 73 65 | 20 69 6e 20 74 68 65 20 |re those| in the |
|00000810| 6c 69 73 74 20 60 63 61 | 6c 65 6e 64 61 72 2d 68 |list `ca|lendar-h|
|00000820| 6f 6c 69 64 61 79 73 27 | 2e 22 20 74 29 0a 28 61 |olidays'|." t).(a|
|00000830| 75 74 6f 6c 6f 61 64 20 | 28 71 75 6f 74 65 20 64 |utoload |(quote d|
|00000840| 69 61 72 79 2d 66 72 65 | 6e 63 68 2d 64 61 74 65 |iary-fre|nch-date|
|00000850| 29 20 22 63 61 6c 2d 66 | 72 65 6e 63 68 22 20 22 |) "cal-f|rench" "|
|00000860| 5c 0a 46 72 65 6e 63 68 | 20 63 61 6c 65 6e 64 61 |\.French| calenda|
|00000870| 72 20 65 71 75 69 76 61 | 6c 65 6e 74 20 6f 66 20 |r equiva|lent of |
|00000880| 64 61 74 65 20 64 69 61 | 72 79 20 65 6e 74 72 79 |date dia|ry entry|
|00000890| 2e 22 20 74 29 0a 28 61 | 75 74 6f 6c 6f 61 64 20 |." t).(a|utoload |
|000008a0| 28 71 75 6f 74 65 20 64 | 69 61 72 79 2d 6d 61 79 |(quote d|iary-may|
|000008b0| 61 6e 2d 64 61 74 65 29 | 20 22 63 61 6c 2d 6d 61 |an-date)| "cal-ma|
|000008c0| 79 61 6e 22 20 22 5c 0a | 4d 61 79 61 6e 20 63 61 |yan" "\.|Mayan ca|
|000008d0| 6c 65 6e 64 61 72 20 65 | 71 75 69 76 61 6c 65 6e |lendar e|quivalen|
|000008e0| 74 20 6f 66 20 64 61 74 | 65 20 64 69 61 72 79 20 |t of dat|e diary |
|000008f0| 65 6e 74 72 79 2e 22 20 | 74 29 0a 28 61 75 74 6f |entry." |t).(auto|
|00000900| 6c 6f 61 64 20 28 71 75 | 6f 74 65 20 64 69 61 72 |load (qu|ote diar|
|00000910| 79 2d 70 68 61 73 65 73 | 2d 6f 66 2d 6d 6f 6f 6e |y-phases|-of-moon|
|00000920| 29 20 22 6c 75 6e 61 72 | 22 20 22 5c 0a 4d 6f 6f |) "lunar|" "\.Moo|
|00000930| 6e 20 70 68 61 73 65 73 | 20 64 69 61 72 79 20 65 |n phases| diary e|
|00000940| 6e 74 72 79 2e 22 20 74 | 29 0a 28 61 75 74 6f 6c |ntry." t|).(autol|
|00000950| 6f 61 64 20 28 71 75 6f | 74 65 20 64 69 61 72 79 |oad (quo|te diary|
|00000960| 2d 73 75 6e 72 69 73 65 | 2d 73 75 6e 73 65 74 29 |-sunrise|-sunset)|
|00000970| 20 22 73 6f 6c 61 72 22 | 20 22 5c 0a 4c 6f 63 61 | "solar"| "\.Loca|
|00000980| 6c 20 74 69 6d 65 20 6f | 66 20 73 75 6e 72 69 73 |l time o|f sunris|
|00000990| 65 20 61 6e 64 20 73 75 | 6e 73 65 74 20 61 73 20 |e and su|nset as |
|000009a0| 61 20 64 69 61 72 79 20 | 65 6e 74 72 79 2e 22 20 |a diary |entry." |
|000009b0| 74 29 0a 28 61 75 74 6f | 6c 6f 61 64 20 28 71 75 |t).(auto|load (qu|
|000009c0| 6f 74 65 20 64 69 61 72 | 79 2d 73 61 62 62 61 74 |ote diar|y-sabbat|
|000009d0| 68 2d 63 61 6e 64 6c 65 | 73 29 20 22 73 6f 6c 61 |h-candle|s) "sola|
|000009e0| 72 22 20 22 5c 0a 4c 6f | 63 61 6c 20 74 69 6d 65 |r" "\.Lo|cal time|
|000009f0| 20 6f 66 20 63 61 6e 64 | 6c 65 20 6c 69 67 68 74 | of cand|le light|
|00000a00| 69 6e 67 20 64 69 61 72 | 79 20 65 6e 74 72 79 2d |ing diar|y entry-|
|00000a10| 2d 61 70 70 6c 69 65 73 | 20 69 66 20 64 61 74 65 |-applies| if date|
|00000a20| 20 69 73 20 61 20 46 72 | 69 64 61 79 2e 0a 4e 6f | is a Fr|iday..No|
|00000a30| 20 64 69 61 72 79 20 65 | 6e 74 72 79 20 69 66 20 | diary e|ntry if |
|00000a40| 74 68 65 72 65 20 69 73 | 20 6e 6f 20 73 75 6e 73 |there is| no suns|
|00000a50| 65 74 20 6f 6e 20 74 68 | 61 74 20 64 61 74 65 2e |et on th|at date.|
|00000a60| 22 20 74 29 0a 28 64 65 | 66 76 61 72 20 64 69 61 |" t).(de|fvar dia|
|00000a70| 72 79 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |ry-synta|x-table |
|00000a80| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 20 21 |(byte-co|de ".. !|
|00000a90| 87 22 20 5b 63 6f 70 79 | 2d 73 79 6e 74 61 78 2d |." [copy|-syntax-|
|00000aa0| 74 61 62 6c 65 20 73 74 | 61 6e 64 61 72 64 2d 73 |table st|andard-s|
|00000ab0| 79 6e 74 61 78 2d 74 61 | 62 6c 65 5d 20 32 29 20 |yntax-ta|ble] 2) |
|00000ac0| 22 5c 0a 54 68 65 20 73 | 79 6e 74 61 78 20 74 61 |"\.The s|yntax ta|
|00000ad0| 62 6c 65 20 75 73 65 64 | 20 77 68 65 6e 20 70 61 |ble used| when pa|
|00000ae0| 72 73 69 6e 67 20 64 61 | 74 65 73 20 69 6e 20 74 |rsing da|tes in t|
|00000af0| 68 65 20 64 69 61 72 79 | 20 66 69 6c 65 2e 0a 49 |he diary| file..I|
|00000b00| 74 20 69 73 20 74 68 65 | 20 73 74 61 6e 64 61 72 |t is the| standar|
|00000b10| 64 20 73 79 6e 74 61 78 | 20 74 61 62 6c 65 20 75 |d syntax| table u|
|00000b20| 73 65 64 20 69 6e 20 46 | 75 6e 64 61 6d 65 6e 74 |sed in F|undament|
|00000b30| 61 6c 20 6d 6f 64 65 2c | 20 62 75 74 20 77 69 74 |al mode,| but wit|
|00000b40| 68 20 74 68 65 0a 73 79 | 6e 74 61 78 20 6f 66 20 |h the.sy|ntax of |
|00000b50| 60 2a 27 20 63 68 61 6e | 67 65 64 20 74 6f 20 62 |`*' chan|ged to b|
|00000b60| 65 20 61 20 77 6f 72 64 | 20 63 6f 6e 73 74 69 74 |e a word| constit|
|00000b70| 75 65 6e 74 2e 22 29 0a | 28 6d 6f 64 69 66 79 2d |uent.").|(modify-|
|00000b80| 73 79 6e 74 61 78 2d 65 | 6e 74 72 79 20 34 32 20 |syntax-e|ntry 42 |
|00000b90| 22 77 22 20 64 69 61 72 | 79 2d 73 79 6e 74 61 78 |"w" diar|y-syntax|
|00000ba0| 2d 74 61 62 6c 65 29 0a | 28 64 65 66 61 6c 69 61 |-table).|(defalia|
|00000bb0| 73 20 27 6c 69 73 74 2d | 64 69 61 72 79 2d 65 6e |s 'list-|diary-en|
|00000bc0| 74 72 69 65 73 20 23 5b | 28 64 61 74 65 20 6e 75 |tries #[|(date nu|
|00000bd0| 6d 62 65 72 29 20 22 c0 | 09 57 85 93 02 5c 6e 1b |mber) ".|.W...\n.|
|00000be0| c4 1d c4 1e 06 c7 5c 6e | 21 1e 08 c9 0e 5c 6e 21 |......\n|!....\n!|
|00000bf0| 1e 0b cc cd 21 88 8a ce | 0e 0b 21 89 1e 0f 83 2c |....!...|..!....,|
|00000c00| 00 0e 0f 82 31 00 d0 0e | 0b d1 5c 22 71 88 29 d1 |....1...|..\"q.).|
|00000c10| 16 12 c4 16 13 d4 20 15 | d5 0e 16 21 88 d7 8e c4 |...... .|...!....|
|00000c20| d8 20 d9 0e 1a 21 1e 1b | 1e 1c 1e 1d 64 53 62 88 |. ...!..|....dSb.|
|00000c30| de df 21 84 62 00 e0 75 | 88 e1 e2 21 88 65 62 88 |..!.b..u|...!.eb.|
|00000c40| de df 21 84 6f 00 e1 e2 | 21 88 e3 65 64 e4 e5 d1 |..!.o...|!..ed...|
|00000c50| 25 88 c0 1e 26 09 0e 26 | 54 89 16 26 59 83 5b 02 |%...&..&|T..&Y.[.|
|00000c60| 0e 27 5c 6e 40 5c 6e 41 | 40 5c 6e 41 41 40 e8 5c |.'\n@\nA|@\nAA@.\|
|00000c70| 6e 21 1e 29 1e 2a 1e 2b | 1e 2c 89 1e 2d 83 b9 01 |n!.).*.+|.,..-...|
|00000c80| 0e 2d 40 40 ee 9a 83 b1 | 00 0e 2d 40 41 82 b4 00 |.-@@....|..-@A...|
|00000c90| 0e 2d 40 1e 2f 0e 2d 40 | 40 ee 9a 1e 2e f0 5c 6e |.-@./.-@|@.....\n|
|00000ca0| 21 f1 f0 5c 6e 21 c0 f2 | 4f f3 52 1e 34 f5 f6 0e |!..\n!..|O.R.4...|
|00000cb0| 2c 21 f1 f6 0e 2c 21 c0 | f2 4f f3 b0 05 1e 37 f8 |,!...,!.|.O....7.|
|00000cc0| f9 0e 2c 21 50 1e 2c f8 | f9 0e 2b 21 50 1e 2b f8 |..,!P.,.|..+!P.+.|
|00000cd0| f9 0e 2a 21 0e 3a 83 03 | 01 f1 f9 0e 2a fb a6 21 |..*!.:..|....*..!|
|00000ce0| 50 82 04 01 fc 51 1e 2a | fd 0e 1b fe ff 81 40 00 |P....Q.*|......@.|
|00000cf0| 0e 2f 81 41 00 23 81 42 | 00 b0 05 1e 43 d1 1e 44 |./.A.#.B|....C..D|
|00000d00| 65 62 88 81 45 00 0e 43 | c4 d1 23 83 ae 01 0e 2e |eb..E..C|..#.....|
|00000d10| 83 3c 01 81 46 00 81 47 | 00 c4 d1 23 88 81 48 00 |.<..F..G|...#..H.|
|00000d20| 68 e5 5c 22 84 4e 01 81 | 48 00 68 e4 5c 22 83 5f |h.\".N..|H.h.\"._|
|00000d30| 01 de 81 49 00 21 84 5f | 01 81 4a 00 e0 21 88 82 |...I.!._|..J..!..|
|00000d40| 5c 22 01 d1 16 29 60 c4 | 1e 4b 1e 4c 81 46 00 81 |\"...)`.|.K.L.F..|
|00000d50| 4d 00 21 88 60 16 4b 81 | 45 00 df c4 d1 81 4e 00 |M.!.`.K.|E.....N.|
|00000d60| 24 88 de 81 49 00 21 83 | 91 01 81 45 00 df c4 d1 |$...I.!.|...E....|
|00000d70| 23 88 82 7e 01 81 4a 00 | e0 21 88 e3 0e 4b 60 e5 |#..~..J.|.!...K`.|
|00000d80| e4 d1 25 88 81 4f 00 5c | 6e 0e 4c 60 7b 5c 22 88 |..%..O.\|n.L`{\".|
|00000d90| 2a 82 5c 22 01 2e 09 0e | 2d 41 89 16 2d 84 a1 00 |*.\"....|-A..-...|
|00000da0| 0e 29 84 cf 01 0e 50 83 | cf 01 81 51 00 0e 06 5c |.)....P.|...Q...\|
|00000db0| 6e fc 44 43 5c 22 16 06 | 81 52 00 5c 6e 41 41 40 |n.DC\"..|.R.\nAA@|
|00000dc0| 53 1e 53 5c 6e 40 1e 2c | 5c 6e 41 40 1e 2b 5c 6e |S.S\n@.,|\nA@.+\n|
|00000dd0| 41 41 40 1e 2a 0e 2b 0e | 2c 53 81 54 00 5f 5c 5c |AA@.*.+.|,S.T._\\|
|00000de0| 1e 55 0e 2c 81 4e 00 56 | 83 32 02 0e 55 0e 2c 81 |.U.,.N.V|.2..U.,.|
|00000df0| 56 00 5f 81 57 00 5c 5c | e4 a5 5a 16 55 0e 2a 81 |V._.W.\\|..Z.U.*.|
|00000e00| 56 00 a6 c0 55 83 32 02 | 0e 2a fb a6 c0 55 83 2d |V...U.2.|.*...U.-|
|00000e10| 02 0e 2a 81 58 00 a6 c0 | 55 83 32 02 0e 55 54 16 |..*.X...|U.2..UT.|
|00000e20| 55 0e 55 2c 0e 53 81 59 | 00 5f 0e 53 81 56 00 a5 |U.U,.S.Y|._.S.V..|
|00000e30| 0e 53 fb a5 5b 0e 53 81 | 58 00 a5 5c 5c 5c 5c 5c |.S..[.S.|X..\\\\\|
|00000e40| 5c 5c 5c 29 54 21 12 c4 | 16 29 2d 82 7a 00 29 81 |\\\)T!..|.)-.z.).|
|00000e50| 5a 00 0e 1c 21 88 2c 65 | 62 88 81 5b 00 81 5c 5c |Z...!.,e|b..[..\\|
|00000e60| 00 81 5d 00 5c 22 88 0e | 5e 83 82 02 81 5b 00 81 |..].\"..|^....[..|
|00000e70| 5e 00 21 88 82 87 02 81 | 5f 00 20 88 81 5b 00 81 |^.!.....|_. ..[..|
|00000e80| 60 00 21 88 0e 06 2e 06 | 87 22 20 5b 30 20 6e 75 |`.!.....|." [0 nu|
|00000e90| 6d 62 65 72 20 64 61 74 | 65 20 6f 72 69 67 69 6e |mber dat|e origin|
|00000ea0| 61 6c 2d 64 61 74 65 20 | 6e 69 6c 20 6f 6c 64 2d |al-date |nil old-|
|00000eb0| 64 69 61 72 79 2d 73 79 | 6e 74 61 78 2d 74 61 62 |diary-sy|ntax-tab|
|00000ec0| 6c 65 20 64 69 61 72 79 | 2d 65 6e 74 72 69 65 73 |le diary|-entries|
|00000ed0| 2d 6c 69 73 74 20 63 61 | 6c 65 6e 64 61 72 2d 64 |-list ca|lendar-d|
|00000ee0| 61 74 65 2d 73 74 72 69 | 6e 67 20 64 61 74 65 2d |ate-stri|ng date-|
|00000ef0| 73 74 72 69 6e 67 20 73 | 75 62 73 74 69 74 75 74 |string s|ubstitut|
|00000f00| 65 2d 69 6e 2d 66 69 6c | 65 2d 6e 61 6d 65 20 64 |e-in-fil|e-name d|
|00000f10| 69 61 72 79 2d 66 69 6c | 65 20 64 2d 66 69 6c 65 |iary-fil|e d-file|
|00000f20| 20 6d 65 73 73 61 67 65 | 20 22 50 72 65 70 61 72 | message| "Prepar|
|00000f30| 69 6e 67 20 64 69 61 72 | 79 2e 2e 2e 22 20 67 65 |ing diar|y..." ge|
|00000f40| 74 2d 66 69 6c 65 2d 62 | 75 66 66 65 72 20 64 69 |t-file-b|uffer di|
|00000f50| 61 72 79 2d 62 75 66 66 | 65 72 20 66 69 6e 64 2d |ary-buff|er find-|
|00000f60| 66 69 6c 65 2d 6e 6f 73 | 65 6c 65 63 74 20 74 20 |file-nos|elect t |
|00000f70| 73 65 6c 65 63 74 69 76 | 65 2d 64 69 73 70 6c 61 |selectiv|e-displa|
|00000f80| 79 20 73 65 6c 65 63 74 | 69 76 65 2d 64 69 73 70 |y select|ive-disp|
|00000f90| 6c 61 79 2d 65 6c 6c 69 | 70 73 65 73 20 73 79 6e |lay-elli|pses syn|
|00000fa0| 74 61 78 2d 74 61 62 6c | 65 20 73 65 74 2d 73 79 |tax-tabl|e set-sy|
|00000fb0| 6e 74 61 78 2d 74 61 62 | 6c 65 20 64 69 61 72 79 |ntax-tab|le diary|
|00000fc0| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 28 28 |-syntax-|table ((|
|00000fd0| 73 65 74 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |set-synt|ax-table|
|00000fe0| 20 6f 6c 64 2d 64 69 61 | 72 79 2d 73 79 6e 74 61 | old-dia|ry-synta|
|00000ff0| 78 2d 74 61 62 6c 65 29 | 29 20 62 75 66 66 65 72 |x-table)|) buffer|
|00001000| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 72 65 67 65 |-modifie|d-p rege|
|00001010| 78 70 2d 71 75 6f 74 65 | 20 64 69 61 72 79 2d 6e |xp-quote| diary-n|
|00001020| 6f 6e 6d 61 72 6b 69 6e | 67 2d 73 79 6d 62 6f 6c |onmarkin|g-symbol|
|00001030| 20 6d 61 72 6b 20 64 69 | 61 72 79 2d 6d 6f 64 69 | mark di|ary-modi|
|00001040| 66 69 65 64 20 62 75 66 | 66 65 72 2d 72 65 61 64 |fied buf|fer-read|
|00001050| 2d 6f 6e 6c 79 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |-only lo|oking-at|
|00001060| 20 22 0d 5c 5c 7c 5c 6e | 22 20 31 20 69 6e 73 65 | ".\\|\n|" 1 inse|
|00001070| 72 74 2d 73 74 72 69 6e | 67 20 22 0d 22 20 73 75 |rt-strin|g "." su|
|00001080| 62 73 74 2d 63 68 61 72 | 2d 69 6e 2d 72 65 67 69 |bst-char|-in-regi|
|00001090| 6f 6e 20 31 30 20 31 33 | 20 69 20 64 69 61 72 79 |on 10 13| i diary|
|000010a0| 2d 64 61 74 65 2d 66 6f | 72 6d 73 20 6c 69 73 74 |-date-fo|rms list|
|000010b0| 2d 73 65 78 70 2d 64 69 | 61 72 79 2d 65 6e 74 72 |-sexp-di|ary-entr|
|000010c0| 69 65 73 20 65 6e 74 72 | 79 2d 66 6f 75 6e 64 20 |ies entr|y-found |
|000010d0| 79 65 61 72 20 64 61 79 | 20 6d 6f 6e 74 68 20 64 |year day| month d|
|000010e0| 20 62 61 63 6b 75 70 20 | 64 61 74 65 2d 66 6f 72 | backup |date-for|
|000010f0| 6d 20 63 61 6c 65 6e 64 | 61 72 2d 64 61 79 2d 6e |m calend|ar-day-n|
|00001100| 61 6d 65 20 22 5c 5c 7c | 22 20 33 20 22 2e 3f 22 |ame "\\||" 3 ".?"|
|00001110| 20 64 61 79 6e 61 6d 65 | 20 22 5c 5c 2a 5c 5c 7c | dayname| "\\*\\||
|00001120| 22 20 63 61 6c 65 6e 64 | 61 72 2d 6d 6f 6e 74 68 |" calend|ar-month|
|00001130| 2d 6e 61 6d 65 20 6d 6f | 6e 74 68 6e 61 6d 65 20 |-name mo|nthname |
|00001140| 22 5c 5c 2a 5c 5c 7c 30 | 2a 22 20 69 6e 74 2d 74 |"\\*\\|0|*" int-t|
|00001150| 6f 2d 73 74 72 69 6e 67 | 20 61 62 62 72 65 76 69 |o-string| abbrevi|
|00001160| 61 74 65 64 2d 63 61 6c | 65 6e 64 61 72 2d 79 65 |ated-cal|endar-ye|
|00001170| 61 72 20 31 30 30 20 22 | 22 20 22 5c 5c 28 5c 5c |ar 100 "|" "\\(\\|
|00001180| 60 5c 5c 7c 0d 5c 5c 7c | 5c 6e 5c 5c 29 22 20 22 |`\\|.\\||\n\\)" "|
|00001190| 3f 5c 5c 28 22 20 6d 61 | 70 63 6f 6e 63 61 74 20 |?\\(" ma|pconcat |
|000011a0| 65 76 61 6c 20 22 5c 5c | 29 5c 5c 28 22 20 22 5c |eval "\\|)\\(" "\|
|000011b0| 5c 29 22 20 72 65 67 65 | 78 70 20 63 61 73 65 2d |\)" rege|xp case-|
|000011c0| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 72 65 2d 73 |fold-sea|rch re-s|
|000011d0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 72 65 |earch-fo|rward re|
|000011e0| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|000011f0| 20 22 5c 5c 3c 22 20 63 | 68 61 72 2d 65 71 75 61 | "\\<" c|har-equa|
|00001200| 6c 20 22 20 5c 5c 7c 09 | 22 20 62 61 63 6b 77 61 |l " \\|.|" backwa|
|00001210| 72 64 2d 63 68 61 72 20 | 64 61 74 65 2d 73 74 61 |rd-char |date-sta|
|00001220| 72 74 20 65 6e 74 72 79 | 2d 73 74 61 72 74 20 22 |rt entry|-start "|
|00001230| 0d 5c 5c 7c 5c 6e 5c 5c | 7c 5c 5c 60 22 20 32 20 |.\\|\n\\||\\`" 2 |
|00001240| 61 64 64 2d 74 6f 2d 64 | 69 61 72 79 2d 6c 69 73 |add-to-d|iary-lis|
|00001250| 74 20 64 69 61 72 79 2d | 6c 69 73 74 2d 69 6e 63 |t diary-|list-inc|
|00001260| 6c 75 64 65 2d 62 6c 61 | 6e 6b 73 20 61 70 70 65 |lude-bla|nks appe|
|00001270| 6e 64 20 63 61 6c 65 6e | 64 61 72 2d 67 72 65 67 |nd calen|dar-greg|
|00001280| 6f 72 69 61 6e 2d 66 72 | 6f 6d 2d 61 62 73 6f 6c |orian-fr|om-absol|
|00001290| 75 74 65 20 70 72 69 6f | 72 2d 79 65 61 72 73 20 |ute prio|r-years |
|000012a0| 33 31 20 64 61 79 2d 6f | 66 2d 79 65 61 72 20 34 |31 day-o|f-year 4|
|000012b0| 20 32 33 20 34 30 30 20 | 33 36 35 20 73 65 74 2d | 23 400 |365 set-|
|000012c0| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|000012d0| 70 20 72 75 6e 2d 68 6f | 6f 6b 73 20 6e 6f 6e 67 |p run-ho|oks nong|
|000012e0| 72 65 67 6f 72 69 61 6e | 2d 64 69 61 72 79 2d 6c |regorian|-diary-l|
|000012f0| 69 73 74 69 6e 67 2d 68 | 6f 6f 6b 20 6c 69 73 74 |isting-h|ook list|
|00001300| 2d 64 69 61 72 79 2d 65 | 6e 74 72 69 65 73 2d 68 |-diary-e|ntries-h|
|00001310| 6f 6f 6b 20 64 69 61 72 | 79 2d 64 69 73 70 6c 61 |ook diar|y-displa|
|00001320| 79 2d 68 6f 6f 6b 20 73 | 69 6d 70 6c 65 2d 64 69 |y-hook s|imple-di|
|00001330| 61 72 79 2d 64 69 73 70 | 6c 61 79 20 64 69 61 72 |ary-disp|lay diar|
|00001340| 79 2d 68 6f 6f 6b 5d 20 | 38 20 22 5c 0a 43 72 65 |y-hook] |8 "\.Cre|
|00001350| 61 74 65 20 61 6e 64 20 | 64 69 73 70 6c 61 79 20 |ate and |display |
|00001360| 61 20 62 75 66 66 65 72 | 20 63 6f 6e 74 61 69 6e |a buffer| contain|
|00001370| 69 6e 67 20 74 68 65 20 | 72 65 6c 65 76 61 6e 74 |ing the |relevant|
|00001380| 20 6c 69 6e 65 73 20 69 | 6e 20 64 69 61 72 79 2d | lines i|n diary-|
|00001390| 66 69 6c 65 2e 0a 54 68 | 65 20 61 72 67 75 6d 65 |file..Th|e argume|
|000013a0| 6e 74 73 20 61 72 65 20 | 44 41 54 45 20 61 6e 64 |nts are |DATE and|
|000013b0| 20 4e 55 4d 42 45 52 3b | 20 74 68 65 20 65 6e 74 | NUMBER;| the ent|
|000013c0| 72 69 65 73 20 73 65 6c | 65 63 74 65 64 20 61 72 |ries sel|ected ar|
|000013d0| 65 20 74 68 6f 73 65 0a | 66 6f 72 20 4e 55 4d 42 |e those.|for NUMB|
|000013e0| 45 52 20 64 61 79 73 20 | 73 74 61 72 74 69 6e 67 |ER days |starting|
|000013f0| 20 77 69 74 68 20 64 61 | 74 65 20 44 41 54 45 2e | with da|te DATE.|
|00001400| 20 20 54 68 65 20 6f 74 | 68 65 72 20 65 6e 74 72 |  The ot|her entr|
|00001410| 69 65 73 20 61 72 65 20 | 68 69 64 64 65 6e 0a 75 |ies are |hidden.u|
|00001420| 73 69 6e 67 20 73 65 6c | 65 63 74 69 76 65 20 64 |sing sel|ective d|
|00001430| 69 73 70 6c 61 79 2e 0a | 0a 52 65 74 75 72 6e 73 |isplay..|.Returns|
|00001440| 20 61 20 6c 69 73 74 20 | 6f 66 20 61 6c 6c 20 72 | a list |of all r|
|00001450| 65 6c 65 76 61 6e 74 20 | 64 69 61 72 79 20 65 6e |elevant |diary en|
|00001460| 74 72 69 65 73 20 66 6f | 75 6e 64 2c 20 69 66 20 |tries fo|und, if |
|00001470| 61 6e 79 2c 20 69 6e 20 | 6f 72 64 65 72 20 62 79 |any, in |order by|
|00001480| 20 64 61 74 65 2e 0a 54 | 68 65 20 6c 69 73 74 20 | date..T|he list |
|00001490| 65 6e 74 72 69 65 73 20 | 68 61 76 65 20 74 68 65 |entries |have the|
|000014a0| 20 66 6f 72 6d 20 28 28 | 6d 6f 6e 74 68 20 64 61 | form ((|month da|
|000014b0| 79 20 79 65 61 72 29 20 | 73 74 72 69 6e 67 29 2e |y year) |string).|
|000014c0| 20 20 49 66 20 74 68 65 | 20 76 61 72 69 61 62 6c |  If the| variabl|
|000014d0| 65 0a 60 64 69 61 72 79 | 2d 6c 69 73 74 2d 69 6e |e.`diary|-list-in|
|000014e0| 63 6c 75 64 65 2d 62 6c | 61 6e 6b 73 27 20 69 73 |clude-bl|anks' is|
|000014f0| 20 74 2c 20 74 68 69 73 | 20 6c 69 73 74 20 69 6e | t, this| list in|
|00001500| 63 6c 75 64 65 73 20 61 | 20 64 75 6d 6d 79 20 64 |cludes a| dummy d|
|00001510| 69 61 72 79 20 65 6e 74 | 72 79 0a 28 63 6f 6e 73 |iary ent|ry.(cons|
|00001520| 69 73 74 69 6e 67 20 6f | 66 20 74 68 65 20 65 6d |isting o|f the em|
|00001530| 70 74 79 20 73 74 72 69 | 6e 67 29 20 66 6f 72 20 |pty stri|ng) for |
|00001540| 61 20 64 61 74 65 20 77 | 69 74 68 20 6e 6f 20 64 |a date w|ith no d|
|00001550| 69 61 72 79 20 65 6e 74 | 72 69 65 73 2e 0a 0a 41 |iary ent|ries...A|
|00001560| 66 74 65 72 20 74 68 65 | 20 6c 69 73 74 20 69 73 |fter the| list is|
|00001570| 20 70 72 65 70 61 72 65 | 64 2c 20 74 68 65 20 68 | prepare|d, the h|
|00001580| 6f 6f 6b 73 20 60 6e 6f | 6e 67 72 65 67 6f 72 69 |ooks `no|ngregori|
|00001590| 61 6e 2d 64 69 61 72 79 | 2d 6c 69 73 74 69 6e 67 |an-diary|-listing|
|000015a0| 2d 68 6f 6f 6b 27 2c 0a | 60 6c 69 73 74 2d 64 69 |-hook',.|`list-di|
|000015b0| 61 72 79 2d 65 6e 74 72 | 69 65 73 2d 68 6f 6f 6b |ary-entr|ies-hook|
|000015c0| 27 2c 20 60 64 69 61 72 | 79 2d 64 69 73 70 6c 61 |', `diar|y-displa|
|000015d0| 79 2d 68 6f 6f 6b 27 2c | 20 61 6e 64 20 60 64 69 |y-hook',| and `di|
|000015e0| 61 72 79 2d 68 6f 6f 6b | 27 20 61 72 65 20 72 75 |ary-hook|' are ru|
|000015f0| 6e 2e 0a 54 68 65 73 65 | 20 68 6f 6f 6b 73 20 68 |n..These| hooks h|
|00001600| 61 76 65 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |ave the |followin|
|00001610| 67 20 64 69 73 74 69 6e | 63 74 20 72 6f 6c 65 73 |g distin|ct roles|
|00001620| 3a 0a 0a 20 20 20 20 60 | 6e 6f 6e 67 72 65 67 6f |:..    `|nongrego|
|00001630| 72 69 61 6e 2d 64 69 61 | 72 79 2d 6c 69 73 74 69 |rian-dia|ry-listi|
|00001640| 6e 67 2d 68 6f 6f 6b 27 | 20 63 61 6e 20 63 75 6c |ng-hook'| can cul|
|00001650| 6c 20 64 61 74 65 73 20 | 66 72 6f 6d 20 74 68 65 |l dates |from the|
|00001660| 20 64 69 61 72 79 0a 20 | 20 20 20 20 20 20 20 61 | diary. |       a|
|00001670| 6e 64 20 65 61 63 68 20 | 69 6e 63 6c 75 64 65 64 |nd each |included|
|00001680| 20 66 69 6c 65 2e 20 20 | 55 73 75 61 6c 6c 79 20 | file.  |Usually |
|00001690| 75 73 65 64 20 66 6f 72 | 20 48 65 62 72 65 77 20 |used for| Hebrew |
|000016a0| 6f 72 20 49 73 6c 61 6d | 69 63 0a 20 20 20 20 20 |or Islam|ic.     |
|000016b0| 20 20 20 64 69 61 72 79 | 20 65 6e 74 72 69 65 73 |   diary| entries|
|000016c0| 20 69 6e 20 66 69 6c 65 | 73 2e 20 20 41 70 70 6c | in file|s.  Appl|
|000016d0| 69 65 64 20 74 6f 20 2a | 65 61 63 68 2a 20 66 69 |ied to *|each* fi|
|000016e0| 6c 65 2e 0a 0a 20 20 20 | 20 60 6c 69 73 74 2d 64 |le...   | `list-d|
|000016f0| 69 61 72 79 2d 65 6e 74 | 72 69 65 73 2d 68 6f 6f |iary-ent|ries-hoo|
|00001700| 6b 27 20 61 64 64 73 20 | 6f 72 20 6d 61 6e 69 70 |k' adds |or manip|
|00001710| 75 6c 61 74 65 73 20 64 | 69 61 72 79 20 65 6e 74 |ulates d|iary ent|
|00001720| 72 69 65 73 20 66 72 6f | 6d 0a 20 20 20 20 20 20 |ries fro|m.      |
|00001730| 20 20 65 78 74 65 72 6e | 61 6c 20 73 6f 75 72 63 |  extern|al sourc|
|00001740| 65 73 2e 20 20 55 73 65 | 64 2c 20 66 6f 72 20 65 |es.  Use|d, for e|
|00001750| 78 61 6d 70 6c 65 2c 20 | 74 6f 20 69 6e 63 6c 75 |xample, |to inclu|
|00001760| 64 65 20 64 69 61 72 79 | 20 65 6e 74 72 69 65 73 |de diary| entries|
|00001770| 0a 20 20 20 20 20 20 20 | 20 66 72 6f 6d 20 6f 74 |.       | from ot|
|00001780| 68 65 72 20 66 69 6c 65 | 73 20 6f 72 20 74 6f 20 |her file|s or to |
|00001790| 73 6f 72 74 20 74 68 65 | 20 64 69 61 72 79 20 65 |sort the| diary e|
|000017a0| 6e 74 72 69 65 73 2e 20 | 20 49 6e 76 6f 6b 65 64 |ntries. | Invoked|
|000017b0| 20 2a 6f 6e 63 65 2a 20 | 6f 6e 6c 79 2c 0a 20 20 | *once* |only,.  |
|000017c0| 20 20 20 20 20 20 62 65 | 66 6f 72 65 20 74 68 65 |      be|fore the|
|000017d0| 20 64 69 73 70 6c 61 79 | 20 68 6f 6f 6b 20 69 73 | display| hook is|
|000017e0| 20 72 75 6e 2e 0a 0a 20 | 20 20 20 60 64 69 61 72 | run... |   `diar|
|000017f0| 79 2d 64 69 73 70 6c 61 | 79 2d 68 6f 6f 6b 27 20 |y-displa|y-hook' |
|00001800| 64 6f 65 73 20 74 68 65 | 20 61 63 74 75 61 6c 20 |does the| actual |
|00001810| 64 69 73 70 6c 61 79 20 | 6f 66 20 69 6e 66 6f 72 |display |of infor|
|00001820| 6d 61 74 69 6f 6e 2e 20 | 20 49 66 20 74 68 69 73 |mation. | If this|
|00001830| 20 69 73 0a 20 20 20 20 | 20 20 20 20 6e 69 6c 2c | is.    |    nil,|
|00001840| 20 73 69 6d 70 6c 65 2d | 64 69 61 72 79 2d 64 69 | simple-|diary-di|
|00001850| 73 70 6c 61 79 20 77 69 | 6c 6c 20 62 65 20 75 73 |splay wi|ll be us|
|00001860| 65 64 2e 20 20 55 73 65 | 20 61 64 64 2d 68 6f 6f |ed.  Use| add-hoo|
|00001870| 6b 20 74 6f 20 73 65 74 | 20 74 68 69 73 20 74 6f |k to set| this to|
|00001880| 0a 20 20 20 20 20 20 20 | 20 66 61 6e 63 79 2d 64 |.       | fancy-d|
|00001890| 69 61 72 79 2d 64 69 73 | 70 6c 61 79 2c 20 69 66 |iary-dis|play, if|
|000018a0| 20 64 65 73 69 72 65 64 | 2e 20 20 49 66 20 79 6f | desired|.  If yo|
|000018b0| 75 20 77 61 6e 74 20 6e | 6f 20 64 69 61 72 79 20 |u want n|o diary |
|000018c0| 64 69 73 70 6c 61 79 2c | 20 75 73 65 0a 20 20 20 |display,| use.   |
|000018d0| 20 20 20 20 20 61 64 64 | 2d 68 6f 6f 6b 20 74 6f |     add|-hook to|
|000018e0| 20 73 65 74 20 74 68 69 | 73 20 74 6f 20 69 67 6e | set thi|s to ign|
|000018f0| 6f 72 65 2e 0a 0a 20 20 | 20 20 60 64 69 61 72 79 |ore...  |  `diary|
|00001900| 2d 68 6f 6f 6b 27 20 69 | 73 20 72 75 6e 20 6c 61 |-hook' i|s run la|
|00001910| 73 74 2e 20 20 54 68 69 | 73 20 63 61 6e 20 62 65 |st.  Thi|s can be|
|00001920| 20 75 73 65 64 20 66 6f | 72 20 61 6e 20 61 70 70 | used fo|r an app|
|00001930| 6f 69 6e 74 6d 65 6e 74 | 0a 20 20 20 20 20 20 20 |ointment|.       |
|00001940| 20 6e 6f 74 69 66 69 63 | 61 74 69 6f 6e 20 66 75 | notific|ation fu|
|00001950| 6e 63 74 69 6f 6e 2e 22 | 5d 29 0a 28 64 65 66 61 |nction."|]).(defa|
|00001960| 6c 69 61 73 20 27 69 6e | 63 6c 75 64 65 2d 6f 74 |lias 'in|clude-ot|
|00001970| 68 65 72 2d 64 69 61 72 | 79 2d 66 69 6c 65 73 20 |her-diar|y-files |
|00001980| 23 5b 6e 69 6c 20 22 65 | 62 88 c0 c1 c2 0b 21 c4 |#[nil "e|b.....!.|
|00001990| 51 c5 c6 23 83 66 00 c7 | c8 94 c8 95 7b 21 c5 c9 |Q..#.f..|....{!..|
|000019a0| ca c5 1e 0b 1e 5c 66 1e | 0d 1e 0e 1e 0f d0 0e 0f |.....\f.|........|
|000019b0| 21 83 55 00 d1 0e 0f 21 | 83 45 00 d2 8e d3 0e 14 |!.U....!|.E......|
|000019c0| d5 0e 16 0e 17 5c 22 5c | 22 16 14 29 82 62 00 d8 |.....\"\|"..).b..|
|000019d0| 20 88 d9 da 0e 0f 5c 22 | 88 db c8 21 88 82 62 00 | .....\"|...!..b.|
|000019e0| d8 20 88 d9 dc 0e 0f 5c | 22 88 db c8 21 88 2d 82 |. .....\|"...!.-.|
|000019f0| 03 00 65 62 87 22 20 5b | 72 65 2d 73 65 61 72 63 |..eb." [|re-searc|
|00001a00| 68 2d 66 6f 72 77 61 72 | 64 20 22 5c 5c 28 5c 5c |h-forwar|d "\\(\\|
|00001a10| 60 5c 5c 7c 0d 5c 5c 7c | 5c 6e 5c 5c 29 22 20 72 |`\\|.\\||\n\\)" r|
|00001a20| 65 67 65 78 70 2d 71 75 | 6f 74 65 20 64 69 61 72 |egexp-qu|ote diar|
|00001a30| 79 2d 69 6e 63 6c 75 64 | 65 2d 73 74 72 69 6e 67 |y-includ|e-string|
|00001a40| 20 22 20 5c 22 5c 5c 28 | 5b 5e 5c 22 5d 2a 5c 5c | " \"\\(|[^\"]*\\|
|00001a50| 29 5c 22 22 20 6e 69 6c | 20 74 20 73 75 62 73 74 |)\"" nil| t subst|
|00001a60| 69 74 75 74 65 2d 69 6e | 2d 66 69 6c 65 2d 6e 61 |itute-in|-file-na|
|00001a70| 6d 65 20 32 20 69 6e 63 | 6c 75 64 65 2d 6f 74 68 |me 2 inc|lude-oth|
|00001a80| 65 72 2d 64 69 61 72 79 | 2d 66 69 6c 65 73 20 69 |er-diary|-files i|
|00001a90| 67 6e 6f 72 65 20 64 69 | 61 72 79 2d 68 6f 6f 6b |gnore di|ary-hook|
|00001aa0| 20 64 69 61 72 79 2d 64 | 69 73 70 6c 61 79 2d 68 | diary-d|isplay-h|
|00001ab0| 6f 6f 6b 20 6c 69 73 74 | 2d 64 69 61 72 79 2d 65 |ook list|-diary-e|
|00001ac0| 6e 74 72 69 65 73 2d 68 | 6f 6f 6b 20 64 69 61 72 |ntries-h|ook diar|
|00001ad0| 79 2d 6c 69 73 74 2d 69 | 6e 63 6c 75 64 65 2d 62 |y-list-i|nclude-b|
|00001ae0| 6c 61 6e 6b 73 20 64 69 | 61 72 79 2d 66 69 6c 65 |lanks di|ary-file|
|00001af0| 20 66 69 6c 65 2d 65 78 | 69 73 74 73 2d 70 20 66 | file-ex|ists-p f|
|00001b00| 69 6c 65 2d 72 65 61 64 | 61 62 6c 65 2d 70 20 28 |ile-read|able-p (|
|00001b10| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 5c 6e |(byte-co|de "..\n|
|00001b20| 21 21 87 22 20 5b 6b 69 | 6c 6c 2d 62 75 66 66 65 |!!." [ki|ll-buffe|
|00001b30| 72 20 67 65 74 2d 66 69 | 6c 65 2d 62 75 66 66 65 |r get-fi|le-buffe|
|00001b40| 72 20 64 69 61 72 79 2d | 66 69 6c 65 5d 20 33 29 |r diary-|file] 3)|
|00001b50| 29 20 61 70 70 65 6e 64 | 20 64 69 61 72 79 2d 65 |) append| diary-e|
|00001b60| 6e 74 72 69 65 73 2d 6c | 69 73 74 20 6c 69 73 74 |ntries-l|ist list|
|00001b70| 2d 64 69 61 72 79 2d 65 | 6e 74 72 69 65 73 20 6f |-diary-e|ntries o|
|00001b80| 72 69 67 69 6e 61 6c 2d | 64 61 74 65 20 6e 75 6d |riginal-|date num|
|00001b90| 62 65 72 20 62 65 65 70 | 20 6d 65 73 73 61 67 65 |ber beep| message|
|00001ba0| 20 22 43 61 6e 27 74 20 | 72 65 61 64 20 69 6e 63 | "Can't |read inc|
|00001bb0| 6c 75 64 65 64 20 64 69 | 61 72 79 20 66 69 6c 65 |luded di|ary file|
|00001bc0| 20 25 73 22 20 73 6c 65 | 65 70 2d 66 6f 72 20 22 | %s" sle|ep-for "|
|00001bd0| 43 61 6e 27 74 20 66 69 | 6e 64 20 69 6e 63 6c 75 |Can't fi|nd inclu|
|00001be0| 64 65 64 20 64 69 61 72 | 79 20 66 69 6c 65 20 25 |ded diar|y file %|
|00001bf0| 73 22 5d 20 35 20 22 5c | 0a 49 6e 63 6c 75 64 65 |s"] 5 "\|.Include|
|00001c00| 20 74 68 65 20 64 69 61 | 72 79 20 65 6e 74 72 69 | the dia|ry entri|
|00001c10| 65 73 20 66 72 6f 6d 20 | 6f 74 68 65 72 20 64 69 |es from |other di|
|00001c20| 61 72 79 20 66 69 6c 65 | 73 20 77 69 74 68 20 74 |ary file|s with t|
|00001c30| 68 6f 73 65 20 6f 66 20 | 64 69 61 72 79 2d 66 69 |hose of |diary-fi|
|00001c40| 6c 65 2e 0a 54 68 69 73 | 20 66 75 6e 63 74 69 6f |le..This| functio|
|00001c50| 6e 20 69 73 20 73 75 69 | 74 61 62 6c 65 20 66 6f |n is sui|table fo|
|00001c60| 72 20 75 73 65 20 69 6e | 20 60 6c 69 73 74 2d 64 |r use in| `list-d|
|00001c70| 69 61 72 79 2d 65 6e 74 | 72 69 65 73 2d 68 6f 6f |iary-ent|ries-hoo|
|00001c80| 6b 27 3b 0a 69 74 20 65 | 6e 61 62 6c 65 73 20 79 |k';.it e|nables y|
|00001c90| 6f 75 20 74 6f 20 75 73 | 65 20 73 68 61 72 65 64 |ou to us|e shared|
|00001ca0| 20 64 69 61 72 79 20 66 | 69 6c 65 73 20 74 6f 67 | diary f|iles tog|
|00001cb0| 65 74 68 65 72 20 77 69 | 74 68 20 79 6f 75 72 20 |ether wi|th your |
|00001cc0| 6f 77 6e 2e 0a 54 68 65 | 20 66 69 6c 65 73 20 69 |own..The| files i|
|00001cd0| 6e 63 6c 75 64 65 64 20 | 61 72 65 20 73 70 65 63 |ncluded |are spec|
|00001ce0| 69 66 69 65 64 20 69 6e | 20 74 68 65 20 64 69 61 |ified in| the dia|
|00001cf0| 72 79 66 69 6c 65 20 62 | 79 20 6c 69 6e 65 73 20 |ryfile b|y lines |
|00001d00| 6f 66 20 74 68 69 73 20 | 66 6f 72 6d 3a 0a 20 20 |of this |form:.  |
|00001d10| 20 20 20 20 20 20 23 69 | 6e 63 6c 75 64 65 20 5c |      #i|nclude \|
|00001d20| 22 66 69 6c 65 6e 61 6d | 65 5c 22 0a 54 68 69 73 |"filenam|e\".This|
|00001d30| 20 69 73 20 72 65 63 75 | 72 73 69 76 65 3b 20 74 | is recu|rsive; t|
|00001d40| 68 61 74 20 69 73 2c 20 | 23 69 6e 63 6c 75 64 65 |hat is, |#include|
|00001d50| 20 64 69 72 65 63 74 69 | 76 65 73 20 69 6e 20 64 | directi|ves in d|
|00001d60| 69 61 72 79 20 66 69 6c | 65 73 20 74 68 75 73 20 |iary fil|es thus |
|00001d70| 69 6e 63 6c 75 64 65 64 | 0a 61 72 65 20 6f 62 65 |included|.are obe|
|00001d80| 79 65 64 2e 20 20 59 6f | 75 20 63 61 6e 20 63 68 |yed.  Yo|u can ch|
|00001d90| 61 6e 67 65 20 74 68 65 | 20 60 23 69 6e 63 6c 75 |ange the| `#inclu|
|00001da0| 64 65 27 20 74 6f 20 73 | 6f 6d 65 20 6f 74 68 65 |de' to s|ome othe|
|00001db0| 72 20 73 74 72 69 6e 67 | 20 62 79 0a 63 68 61 6e |r string| by.chan|
|00001dc0| 67 69 6e 67 20 74 68 65 | 20 76 61 72 69 61 62 6c |ging the| variabl|
|00001dd0| 65 20 60 64 69 61 72 79 | 2d 69 6e 63 6c 75 64 65 |e `diary|-include|
|00001de0| 2d 73 74 72 69 6e 67 27 | 2e 22 5d 29 0a 28 64 65 |-string'|."]).(de|
|00001df0| 66 61 6c 69 61 73 20 27 | 73 69 6d 70 6c 65 2d 64 |falias '|simple-d|
|00001e00| 69 61 72 79 2d 64 69 73 | 70 6c 61 79 20 23 5b 6e |iary-dis|play #[n|
|00001e10| 69 6c 20 22 08 85 07 00 | c1 5c 6e 21 1b c4 c5 0e |il "....|.\n!....|
|00001e20| 06 0b 83 14 00 c7 82 15 | 00 c8 50 c9 ca 0b cb 23 |........|..P....#|
|00001e30| 23 1e 5c 66 0e 0d 83 33 | 00 0e 0d 41 84 72 00 0e |#.\f...3|...A.r..|
|00001e40| 0d 40 41 40 c8 98 83 72 | 00 0e 5c 66 47 ce 20 58 |.@A@...r|..\fG. X|
|00001e50| 83 43 00 cf 0e 5c 66 21 | 82 91 00 d0 0e 11 21 71 |.C...\f!|......!q|
|00001e60| 88 d2 16 13 d4 0e 06 21 | 88 d5 20 88 c9 ca 0b d6 |.......!|.. .....|
|00001e70| 23 63 88 65 62 88 d7 d2 | 21 88 d8 16 13 d9 0e 11 |#c.eb...|!.......|
|00001e80| 21 88 cf da 0e 06 5c 22 | 82 91 00 d4 db 0e 06 0b |!.....\"|........|
|00001e90| 83 7e 00 dc 82 7f 00 c8 | c9 ca 0b cb 23 52 21 88 |.~......|....#R!.|
|00001ea0| d9 dd 0e 1e 21 21 88 cf | df 21 2a 87 22 20 5b 68 |....!!..|.!*." [h|
|00001eb0| 6f 6c 69 64 61 79 73 2d | 69 6e 2d 64 69 61 72 79 |olidays-|in-diary|
|00001ec0| 2d 62 75 66 66 65 72 20 | 63 68 65 63 6b 2d 63 61 |-buffer |check-ca|
|00001ed0| 6c 65 6e 64 61 72 2d 68 | 6f 6c 69 64 61 79 73 20 |lendar-h|olidays |
|00001ee0| 6f 72 69 67 69 6e 61 6c | 2d 64 61 74 65 20 68 6f |original|-date ho|
|00001ef0| 6c 69 64 61 79 2d 6c 69 | 73 74 20 66 6f 72 6d 61 |liday-li|st forma|
|00001f00| 74 20 22 4e 6f 20 64 69 | 61 72 79 20 65 6e 74 72 |t "No di|ary entr|
|00001f10| 69 65 73 20 66 6f 72 20 | 25 73 20 25 73 22 20 64 |ies for |%s %s" d|
|00001f20| 61 74 65 2d 73 74 72 69 | 6e 67 20 22 3a 22 20 22 |ate-stri|ng ":" "|
|00001f30| 22 20 6d 61 70 63 6f 6e | 63 61 74 20 69 64 65 6e |" mapcon|cat iden|
|00001f40| 74 69 74 79 20 22 3b 20 | 22 20 6d 73 67 20 64 69 |tity "; |" msg di|
|00001f50| 61 72 79 2d 65 6e 74 72 | 69 65 73 2d 6c 69 73 74 |ary-entr|ies-list|
|00001f60| 20 66 72 61 6d 65 2d 77 | 69 64 74 68 20 6d 65 73 | frame-w|idth mes|
|00001f70| 73 61 67 65 20 67 65 74 | 2d 62 75 66 66 65 72 2d |sage get|-buffer-|
|00001f80| 63 72 65 61 74 65 20 68 | 6f 6c 69 64 61 79 2d 62 |create h|oliday-b|
|00001f90| 75 66 66 65 72 20 6e 69 | 6c 20 62 75 66 66 65 72 |uffer ni|l buffer|
|00001fa0| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 63 61 6c 65 6e |-read-on|ly calen|
|00001fb0| 64 61 72 2d 73 65 74 2d | 6d 6f 64 65 2d 6c 69 6e |dar-set-|mode-lin|
|00001fc0| 65 20 65 72 61 73 65 2d | 62 75 66 66 65 72 20 22 |e erase-|buffer "|
|00001fd0| 5c 6e 22 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |\n" set-|buffer-m|
|00001fe0| 6f 64 69 66 69 65 64 2d | 70 20 74 20 64 69 73 70 |odified-|p t disp|
|00001ff0| 6c 61 79 2d 62 75 66 66 | 65 72 20 22 4e 6f 20 64 |lay-buff|er "No d|
|00002000| 69 61 72 79 20 65 6e 74 | 72 69 65 73 20 66 6f 72 |iary ent|ries for|
|00002010| 20 25 73 22 20 22 44 69 | 61 72 79 20 66 6f 72 20 | %s" "Di|ary for |
|00002020| 22 20 22 3a 20 22 20 67 | 65 74 2d 66 69 6c 65 2d |" ": " g|et-file-|
|00002030| 62 75 66 66 65 72 20 64 | 2d 66 69 6c 65 20 22 50 |buffer d|-file "P|
|00002040| 72 65 70 61 72 69 6e 67 | 20 64 69 61 72 79 2e 2e |reparing| diary..|
|00002050| 2e 64 6f 6e 65 22 5d 20 | 38 20 22 5c 0a 44 69 73 |.done"] |8 "\.Dis|
|00002060| 70 6c 61 79 20 74 68 65 | 20 64 69 61 72 79 20 62 |play the| diary b|
|00002070| 75 66 66 65 72 20 69 66 | 20 74 68 65 72 65 20 61 |uffer if| there a|
|00002080| 72 65 20 61 6e 79 20 72 | 65 6c 65 76 61 6e 74 20 |re any r|elevant |
|00002090| 65 6e 74 72 69 65 73 20 | 6f 72 20 68 6f 6c 69 64 |entries |or holid|
|000020a0| 61 79 73 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ays."]).|(defalia|
|000020b0| 73 20 27 66 61 6e 63 79 | 2d 64 69 61 72 79 2d 64 |s 'fancy|-diary-d|
|000020c0| 69 73 70 6c 61 79 20 23 | 5b 6e 69 6c 20 22 8a c0 |isplay #|[nil "..|
|000020d0| c1 5c 6e 21 21 71 88 c3 | 20 1c c5 65 64 c6 c7 c8 |.\n!!q..| ..ed...|
|000020e0| 25 88 c9 16 5c 6e cb cc | 21 88 cd 5c 66 21 88 2a |%...\n..|!..\f!.*|
|000020f0| 0e 0e 83 34 00 0e 0e 41 | 84 95 00 0e 0e 40 41 40 |...4...A|.....@A@|
|00002100| cf 98 83 95 00 0e 10 85 | 3d 00 d1 0e 12 21 1e 13 |........|=....!..|
|00002110| d4 d5 0e 16 0e 13 83 4c | 00 d7 82 4d 00 cf 50 d8 |.......L|...M..P.|
|00002120| d9 0e 13 da 23 23 89 1e | 1b 47 dc 20 58 83 66 00 |....##..|.G. X.f.|
|00002130| dd 0e 1b 21 82 93 00 de | 0e 1f 21 71 88 c9 16 20 |...!....|..!q... |
|00002140| e1 0e 16 21 88 e2 20 88 | d8 d9 0e 13 e3 23 63 88 |...!.. .|.....#c.|
|00002150| 65 62 88 cd c9 21 88 c8 | 16 20 e4 0e 1f 21 88 dd |eb...!..|. ...!..|
|00002160| e5 0e 16 5c 22 2a 87 8a | de 0e 26 21 71 88 c9 16 |...\"*..|..&!q...|
|00002170| 20 e7 cc 21 88 e1 e8 21 | 88 e2 20 88 0e 0e c9 e9 | ..!...!|.. .....|
|00002180| 89 ea 89 89 45 1e 2b 1e | 2c 1e 2d 1e 13 89 1e 2e |....E.+.|,.-.....|
|00002190| 83 fd 01 ef 0e 2b 0e 2e | 40 40 5c 22 84 e0 01 0e |.....+..|@@\"....|
|000021a0| 2e 40 40 16 2b 0e 10 83 | 68 01 f0 0e 2d 89 f1 55 |.@@.+...|h...-..U|
|000021b0| 83 ff 00 f2 0e 2c f3 a6 | 21 83 ff 00 f2 0e 2c f4 |.....,..|!.....,.|
|000021c0| a6 21 83 fb 00 f2 0e 2c | f5 a6 21 83 ff 00 f6 82 |.!.....,|..!.....|
|000021d0| 04 01 f7 0e 2d 53 48 0e | 2c 45 43 0e 2b 43 5c 22 |....-SH.|,EC.+C\"|
|000021e0| 83 68 01 0e 2b 40 89 16 | 2d 83 68 01 0e 2b 41 41 |.h..+@..|-.h..+AA|
|000021f0| 40 89 16 2c 83 68 01 0e | 2c f8 5f 0e 2d f9 e9 5c |@..,.h..|,._.-..\|
|00002200| 5c 5c 5c 5c 5c 89 1e 3a | f8 a6 54 16 2d 0e 3a f8 |\\\\\..:|..T.-.:.|
|00002210| a5 89 16 2c 29 83 68 01 | 0e 2d 0e 2c 1e 3b 1e 3c |...,).h.|.-.,.;.<|
|00002220| fd 20 2a 89 16 13 83 68 | 01 0e 2c f8 5f 0e 2d 5c |. *....h|..,._.-\|
|00002230| 5c 89 1e 3a f8 a6 54 16 | 2d 0e 3a f8 a5 16 2c 29 |\..:..T.|-.:...,)|
|00002240| fe 0e 2b 21 1e 16 0e 13 | c9 1e 3f 89 1e 40 83 99 |..+!....|..?..@..|
|00002250| 01 ef 0e 2b 0e 40 40 40 | 5c 22 83 90 01 81 41 00 |...+.@@@|\"....A.|
|00002260| 0e 3f 0e 40 40 41 5c 22 | 16 3f 0e 40 41 89 16 40 |.?.@@A\"|.?.@A..@|
|00002270| 84 79 01 0e 3f 2a 1e 42 | 60 65 55 83 a8 01 cf 82 |.y..?*.B|`eU.....|
|00002280| a9 01 c7 0e 16 b1 02 88 | 0e 42 83 b8 01 81 43 00 |........|.B....C.|
|00002290| 63 88 69 1e 44 d8 d9 0e | 42 e3 81 45 00 0e 44 81 |c.i.D...|B..E..D.|
|000022a0| 46 00 5c 22 50 23 63 88 | 29 69 1e 44 c7 81 45 00 |F.\"P#c.|)i.D..E.|
|000022b0| 0e 44 81 47 00 5c 22 c7 | b1 03 88 2b ea 0e 2e 40 |.D.G.\".|...+...@|
|000022c0| 41 40 47 57 83 f4 01 0e | 2e 40 41 40 c7 b1 02 88 |A@GW....|.@A@....|
|000022d0| 0e 2e 41 89 16 2e 84 c1 | 00 2d cd c9 21 88 65 62 |..A.....|.-..!.eb|
|000022e0| 88 c8 16 20 e4 0e 26 21 | 88 dd 81 48 00 21 29 87 |... ..&!|...H.!).|
|000022f0| 22 20 5b 67 65 74 2d 66 | 69 6c 65 2d 62 75 66 66 |" [get-f|ile-buff|
|00002300| 65 72 20 73 75 62 73 74 | 69 74 75 74 65 2d 69 6e |er subst|itute-in|
|00002310| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 64 69 61 72 79 |-file-na|me diary|
|00002320| 2d 66 69 6c 65 20 62 75 | 66 66 65 72 2d 6d 6f 64 |-file bu|ffer-mod|
|00002330| 69 66 69 65 64 2d 70 20 | 64 69 61 72 79 2d 6d 6f |ified-p |diary-mo|
|00002340| 64 69 66 69 65 64 20 73 | 75 62 73 74 2d 63 68 61 |dified s|ubst-cha|
|00002350| 72 2d 69 6e 2d 72 65 67 | 69 6f 6e 20 31 33 20 31 |r-in-reg|ion 13 1|
|00002360| 30 20 74 20 6e 69 6c 20 | 73 65 6c 65 63 74 69 76 |0 t nil |selectiv|
|00002370| 65 2d 64 69 73 70 6c 61 | 79 20 6b 69 6c 6c 2d 6c |e-displa|y kill-l|
|00002380| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 6d 6f |ocal-var|iable mo|
|00002390| 64 65 2d 6c 69 6e 65 2d | 66 6f 72 6d 61 74 20 73 |de-line-|format s|
|000023a0| 65 74 2d 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |et-buffe|r-modifi|
|000023b0| 65 64 2d 70 20 64 69 61 | 72 79 2d 65 6e 74 72 69 |ed-p dia|ry-entri|
|000023c0| 65 73 2d 6c 69 73 74 20 | 22 22 20 68 6f 6c 69 64 |es-list |"" holid|
|000023d0| 61 79 73 2d 69 6e 2d 64 | 69 61 72 79 2d 62 75 66 |ays-in-d|iary-buf|
|000023e0| 66 65 72 20 63 68 65 63 | 6b 2d 63 61 6c 65 6e 64 |fer chec|k-calend|
|000023f0| 61 72 2d 68 6f 6c 69 64 | 61 79 73 20 6f 72 69 67 |ar-holid|ays orig|
|00002400| 69 6e 61 6c 2d 64 61 74 | 65 20 68 6f 6c 69 64 61 |inal-dat|e holida|
|00002410| 79 2d 6c 69 73 74 20 66 | 6f 72 6d 61 74 20 22 4e |y-list f|ormat "N|
|00002420| 6f 20 64 69 61 72 79 20 | 65 6e 74 72 69 65 73 20 |o diary |entries |
|00002430| 66 6f 72 20 25 73 20 25 | 73 22 20 64 61 74 65 2d |for %s %|s" date-|
|00002440| 73 74 72 69 6e 67 20 22 | 3a 22 20 6d 61 70 63 6f |string "|:" mapco|
|00002450| 6e 63 61 74 20 69 64 65 | 6e 74 69 74 79 20 22 3b |ncat ide|ntity ";|
|00002460| 20 22 20 6d 73 67 20 66 | 72 61 6d 65 2d 77 69 64 | " msg f|rame-wid|
|00002470| 74 68 20 6d 65 73 73 61 | 67 65 20 67 65 74 2d 62 |th messa|ge get-b|
|00002480| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 68 6f 6c |uffer-cr|eate hol|
|00002490| 69 64 61 79 2d 62 75 66 | 66 65 72 20 62 75 66 66 |iday-buf|fer buff|
|000024a0| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 63 61 6c |er-read-|only cal|
|000024b0| 65 6e 64 61 72 2d 73 65 | 74 2d 6d 6f 64 65 2d 6c |endar-se|t-mode-l|
|000024c0| 69 6e 65 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |ine eras|e-buffer|
|000024d0| 20 22 5c 6e 22 20 64 69 | 73 70 6c 61 79 2d 62 75 | "\n" di|splay-bu|
|000024e0| 66 66 65 72 20 22 4e 6f | 20 64 69 61 72 79 20 65 |ffer "No| diary e|
|000024f0| 6e 74 72 69 65 73 20 66 | 6f 72 20 25 73 22 20 66 |ntries f|or %s" f|
|00002500| 61 6e 63 79 2d 64 69 61 | 72 79 2d 62 75 66 66 65 |ancy-dia|ry-buffe|
|00002510| 72 20 6d 61 6b 65 2d 6c | 6f 63 61 6c 2d 76 61 72 |r make-l|ocal-var|
|00002520| 69 61 62 6c 65 20 22 44 | 69 61 72 79 20 45 6e 74 |iable "D|iary Ent|
|00002530| 72 69 65 73 22 20 31 20 | 30 20 64 61 74 65 20 68 |ries" 1 |0 date h|
|00002540| 6f 6c 69 64 61 79 2d 6c | 69 73 74 2d 6c 61 73 74 |oliday-l|ist-last|
|00002550| 2d 79 65 61 72 20 68 6f | 6c 69 64 61 79 2d 6c 69 |-year ho|liday-li|
|00002560| 73 74 2d 6c 61 73 74 2d | 6d 6f 6e 74 68 20 65 6e |st-last-|month en|
|00002570| 74 72 79 2d 6c 69 73 74 | 20 63 61 6c 65 6e 64 61 |try-list| calenda|
|00002580| 72 2d 64 61 74 65 2d 65 | 71 75 61 6c 20 63 61 6c |r-date-e|qual cal|
|00002590| 65 6e 64 61 72 2d 64 61 | 74 65 2d 63 6f 6d 70 61 |endar-da|te-compa|
|000025a0| 72 65 20 32 20 7a 65 72 | 6f 70 20 34 20 31 30 30 |re 2 zer|op 4 100|
|000025b0| 20 34 30 30 20 32 39 20 | 5b 33 31 20 32 38 20 33 | 400 29 |[31 28 3|
|000025c0| 31 20 33 30 20 33 31 20 | 33 30 20 33 31 20 33 31 |1 30 31 |30 31 31|
|000025d0| 20 33 30 20 33 31 20 33 | 30 20 33 31 5d 20 31 32 | 30 31 3|0 31] 12|
|000025e0| 20 2d 31 20 6d 61 63 72 | 6f 2d 79 20 64 69 73 70 | -1 macr|o-y disp|
|000025f0| 6c 61 79 65 64 2d 79 65 | 61 72 20 64 69 73 70 6c |layed-ye|ar displ|
|00002600| 61 79 65 64 2d 6d 6f 6e | 74 68 20 63 61 6c 65 6e |ayed-mon|th calen|
|00002610| 64 61 72 2d 68 6f 6c 69 | 64 61 79 2d 6c 69 73 74 |dar-holi|day-list|
|00002620| 20 63 61 6c 65 6e 64 61 | 72 2d 64 61 74 65 2d 73 | calenda|r-date-s|
|00002630| 74 72 69 6e 67 20 64 20 | 68 20 61 70 70 65 6e 64 |tring d |h append|
|00002640| 20 64 61 74 65 2d 68 6f | 6c 69 64 61 79 2d 6c 69 | date-ho|liday-li|
|00002650| 73 74 20 22 3a 20 20 22 | 20 6c 20 6d 61 6b 65 2d |st ":  "| l make-|
|00002660| 73 74 72 69 6e 67 20 33 | 32 20 36 31 20 22 50 72 |string 3|2 61 "Pr|
|00002670| 65 70 61 72 69 6e 67 20 | 64 69 61 72 79 2e 2e 2e |eparing |diary...|
|00002680| 64 6f 6e 65 22 5d 20 38 | 20 22 5c 0a 50 72 65 70 |done"] 8| "\.Prep|
|00002690| 61 72 65 20 61 20 64 69 | 61 72 79 20 62 75 66 66 |are a di|ary buff|
|000026a0| 65 72 20 77 69 74 68 20 | 72 65 6c 65 76 61 6e 74 |er with |relevant|
|000026b0| 20 65 6e 74 72 69 65 73 | 20 69 6e 20 61 20 66 61 | entries| in a fa|
|000026c0| 6e 63 79 2c 20 6e 6f 6e | 65 64 69 74 61 62 6c 65 |ncy, non|editable|
|000026d0| 20 66 6f 72 6d 2e 0a 54 | 68 69 73 20 66 75 6e 63 | form..T|his func|
|000026e0| 74 69 6f 6e 20 69 73 20 | 70 72 6f 76 69 64 65 64 |tion is |provided|
|000026f0| 20 66 6f 72 20 6f 70 74 | 69 6f 6e 61 6c 20 75 73 | for opt|ional us|
|00002700| 65 20 61 73 20 74 68 65 | 20 60 64 69 61 72 79 2d |e as the| `diary-|
|00002710| 64 69 73 70 6c 61 79 2d | 68 6f 6f 6b 27 2e 22 5d |display-|hook'."]|
|00002720| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 72 69 |).(defal|ias 'pri|
|00002730| 6e 74 2d 64 69 61 72 79 | 2d 65 6e 74 72 69 65 73 |nt-diary|-entries|
|00002740| 20 23 5b 6e 69 6c 20 22 | c0 c1 5c 6e 21 21 83 13 | #[nil "|..\n!!..|
|00002750| 00 8a c1 5c 6e 21 71 88 | c3 c4 21 29 87 c5 c6 0e |...\n!q.|..!)....|
|00002760| 07 21 21 89 1e 08 83 7b | 00 c9 ca 21 cb 1e 5c 66 |.!!....{|...!..\f|
|00002770| 1e 0d 8a 0e 08 71 88 0e | 0e 3b 84 36 00 cf 82 43 |.....q..|.;.6...C|
|00002780| 00 d0 d1 0e 0e 5c 22 88 | 0e 0e d2 94 d2 95 4f 16 |.....\".|......O.|
|00002790| 5c 66 d3 0e 0d 65 64 23 | 88 0e 0d 71 88 d4 d5 cb |\f...ed#|...q....|
|000027a0| d6 23 83 5f 00 d7 d8 21 | 88 82 50 00 65 62 88 0e |.#._...!|..P.eb..|
|000027b0| 5c 66 d9 da 0e 5c 66 47 | db 5c 22 d9 b1 04 88 c3 |\f...\fG|.\".....|
|000027c0| c4 21 88 dc 0e 0d 21 2b | 82 7e 00 dd de 21 29 87 |.!....!+|.~...!).|
|000027d0| 22 20 5b 62 75 66 66 65 | 72 70 20 67 65 74 2d 62 |" [buffe|rp get-b|
|000027e0| 75 66 66 65 72 20 66 61 | 6e 63 79 2d 64 69 61 72 |uffer fa|ncy-diar|
|000027f0| 79 2d 62 75 66 66 65 72 | 20 72 75 6e 2d 68 6f 6f |y-buffer| run-hoo|
|00002800| 6b 73 20 70 72 69 6e 74 | 2d 64 69 61 72 79 2d 65 |ks print|-diary-e|
|00002810| 6e 74 72 69 65 73 2d 68 | 6f 6f 6b 20 67 65 74 2d |ntries-h|ook get-|
|00002820| 66 69 6c 65 2d 62 75 66 | 66 65 72 20 73 75 62 73 |file-buf|fer subs|
|00002830| 74 69 74 75 74 65 2d 69 | 6e 2d 66 69 6c 65 2d 6e |titute-i|n-file-n|
|00002840| 61 6d 65 20 64 69 61 72 | 79 2d 66 69 6c 65 20 64 |ame diar|y-file d|
|00002850| 69 61 72 79 2d 62 75 66 | 66 65 72 20 67 65 74 2d |iary-buf|fer get-|
|00002860| 62 75 66 66 65 72 2d 63 | 72 65 61 74 65 20 22 2a |buffer-c|reate "*|
|00002870| 50 72 69 6e 74 61 62 6c | 65 20 44 69 61 72 79 20 |Printabl|e Diary |
|00002880| 45 6e 74 72 69 65 73 2a | 22 20 6e 69 6c 20 68 65 |Entries*|" nil he|
|00002890| 61 64 69 6e 67 20 74 65 | 6d 70 2d 62 75 66 66 65 |ading te|mp-buffe|
|000028a0| 72 20 6d 6f 64 65 2d 6c | 69 6e 65 2d 66 6f 72 6d |r mode-l|ine-form|
|000028b0| 61 74 20 22 41 6c 6c 20 | 44 69 61 72 79 20 45 6e |at "All |Diary En|
|000028c0| 74 72 69 65 73 22 20 73 | 74 72 69 6e 67 2d 6d 61 |tries" s|tring-ma|
|000028d0| 74 63 68 20 22 5e 2d 2a | 5c 5c 28 5b 5e 2d 5d 2e |tch "^-*|\\([^-].|
|000028e0| 2a 5b 5e 2d 5d 5c 5c 29 | 2d 2a 24 22 20 31 20 63 |*[^-]\\)|-*$" 1 c|
|000028f0| 6f 70 79 2d 74 6f 2d 62 | 75 66 66 65 72 20 72 65 |opy-to-b|uffer re|
|00002900| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00002910| 22 0d 2e 2a 24 22 20 74 | 20 72 65 70 6c 61 63 65 |"..*$" t| replace|
|00002920| 2d 6d 61 74 63 68 20 22 | 22 20 22 5c 6e 22 20 6d |-match "|" "\n" m|
|00002930| 61 6b 65 2d 73 74 72 69 | 6e 67 20 36 31 20 6b 69 |ake-stri|ng 61 ki|
|00002940| 6c 6c 2d 62 75 66 66 65 | 72 20 65 72 72 6f 72 20 |ll-buffe|r error |
|00002950| 22 59 6f 75 20 64 6f 6e | 27 74 20 68 61 76 65 20 |"You don|'t have |
|00002960| 61 20 64 69 61 72 79 20 | 62 75 66 66 65 72 21 22 |a diary |buffer!"|
|00002970| 5d 20 36 20 22 5c 0a 50 | 72 69 6e 74 20 61 20 68 |] 6 "\.P|rint a h|
|00002980| 61 72 64 20 63 6f 70 79 | 20 6f 66 20 74 68 65 20 |ard copy| of the |
|00002990| 64 69 61 72 79 20 64 69 | 73 70 6c 61 79 2e 0a 0a |diary di|splay...|
|000029a0| 49 66 20 74 68 65 20 73 | 69 6d 70 6c 65 20 64 69 |If the s|imple di|
|000029b0| 61 72 79 20 64 69 73 70 | 6c 61 79 20 69 73 20 62 |ary disp|lay is b|
|000029c0| 65 69 6e 67 20 75 73 65 | 64 2c 20 70 72 65 70 61 |eing use|d, prepa|
|000029d0| 72 65 20 61 20 74 65 6d | 70 20 62 75 66 66 65 72 |re a tem|p buffer|
|000029e0| 20 77 69 74 68 20 74 68 | 65 0a 76 69 73 69 62 6c | with th|e.visibl|
|000029f0| 65 20 6c 69 6e 65 73 20 | 6f 66 20 74 68 65 20 64 |e lines |of the d|
|00002a00| 69 61 72 79 20 62 75 66 | 66 65 72 2c 20 61 64 64 |iary buf|fer, add|
|00002a10| 20 61 20 68 65 61 64 69 | 6e 67 20 6c 69 6e 65 20 | a headi|ng line |
|00002a20| 63 6f 6d 70 6f 73 65 64 | 20 66 72 6f 6d 20 74 68 |composed| from th|
|00002a30| 65 20 6d 6f 64 65 0a 6c | 69 6e 65 2c 20 70 72 69 |e mode.l|ine, pri|
|00002a40| 6e 74 20 74 68 65 20 74 | 65 6d 70 20 62 75 66 66 |nt the t|emp buff|
|00002a50| 65 72 2c 20 61 6e 64 20 | 64 65 73 74 72 6f 79 20 |er, and |destroy |
|00002a60| 69 74 2e 0a 0a 49 66 20 | 74 68 65 20 66 61 6e 63 |it...If |the fanc|
|00002a70| 79 20 64 69 61 72 79 20 | 64 69 73 70 6c 61 79 20 |y diary |display |
|00002a80| 69 73 20 62 65 69 6e 67 | 20 75 73 65 64 2c 20 6a |is being| used, j|
|00002a90| 75 73 74 20 70 72 69 6e | 74 20 74 68 65 20 62 75 |ust prin|t the bu|
|00002aa0| 66 66 65 72 2e 0a 0a 54 | 68 65 20 68 6f 6f 6b 73 |ffer...T|he hooks|
|00002ab0| 20 67 69 76 65 6e 20 62 | 79 20 74 68 65 20 76 61 | given b|y the va|
|00002ac0| 72 69 61 62 6c 65 20 60 | 70 72 69 6e 74 2d 64 69 |riable `|print-di|
|00002ad0| 61 72 79 2d 65 6e 74 72 | 69 65 73 2d 68 6f 6f 6b |ary-entr|ies-hook|
|00002ae0| 27 20 61 72 65 20 63 61 | 6c 6c 65 64 20 74 6f 20 |' are ca|lled to |
|00002af0| 64 6f 0a 74 68 65 20 61 | 63 74 75 61 6c 20 70 72 |do.the a|ctual pr|
|00002b00| 69 6e 74 69 6e 67 2e 22 | 20 6e 69 6c 5d 29 0a 28 |inting."| nil]).(|
|00002b10| 64 65 66 61 6c 69 61 73 | 20 27 73 68 6f 77 2d 61 |defalias| 'show-a|
|00002b20| 6c 6c 2d 64 69 61 72 79 | 2d 65 6e 74 72 69 65 73 |ll-diary|-entries|
|00002b30| 20 23 5b 6e 69 6c 20 22 | c0 09 21 89 1a 83 55 00 | #[nil "|..!...U.|
|00002b40| c3 5c 6e 21 83 55 00 c4 | 5c 6e 21 83 4f 00 8a c5 |.\n!.U..|\n!.O...|
|00002b50| 5c 6e 21 89 1e 06 83 23 | 00 0e 06 82 27 00 c7 5c |\n!....#|....'..\|
|00002b60| 6e c8 5c 22 71 88 c9 ca | 20 1e 0b 1e 5c 66 cd 65 |n.\"q...| ...\f.e|
|00002b70| 64 ce cf c8 25 88 c9 16 | 10 d1 d2 21 88 0e 13 16 |d...%...|...!....|
|00002b80| 12 d4 70 21 88 d5 0e 0b | 21 2c 82 58 00 d6 d7 21 |..p!....|!,.X...!|
|00002b90| 82 58 00 d6 d8 21 29 87 | 22 20 5b 73 75 62 73 74 |.X...!).|" [subst|
|00002ba0| 69 74 75 74 65 2d 69 6e | 2d 66 69 6c 65 2d 6e 61 |itute-in|-file-na|
|00002bb0| 6d 65 20 64 69 61 72 79 | 2d 66 69 6c 65 20 64 2d |me diary|-file d-|
|00002bc0| 66 69 6c 65 20 66 69 6c | 65 2d 65 78 69 73 74 73 |file fil|e-exists|
|00002bd0| 2d 70 20 66 69 6c 65 2d | 72 65 61 64 61 62 6c 65 |-p file-|readable|
|00002be0| 2d 70 20 67 65 74 2d 66 | 69 6c 65 2d 62 75 66 66 |-p get-f|ile-buff|
|00002bf0| 65 72 20 64 69 61 72 79 | 2d 62 75 66 66 65 72 20 |er diary|-buffer |
|00002c00| 66 69 6e 64 2d 66 69 6c | 65 2d 6e 6f 73 65 6c 65 |find-fil|e-nosele|
|00002c10| 63 74 20 74 20 6e 69 6c | 20 62 75 66 66 65 72 2d |ct t nil| buffer-|
|00002c20| 6d 6f 64 69 66 69 65 64 | 2d 70 20 64 69 61 72 79 |modified|-p diary|
|00002c30| 2d 6d 6f 64 69 66 69 65 | 64 20 62 75 66 66 65 72 |-modifie|d buffer|
|00002c40| 2d 72 65 61 64 2d 6f 6e | 6c 79 20 73 75 62 73 74 |-read-on|ly subst|
|00002c50| 2d 63 68 61 72 2d 69 6e | 2d 72 65 67 69 6f 6e 20 |-char-in|-region |
|00002c60| 31 33 20 31 30 20 73 65 | 6c 65 63 74 69 76 65 2d |13 10 se|lective-|
|00002c70| 64 69 73 70 6c 61 79 20 | 6d 61 6b 65 2d 6c 6f 63 |display |make-loc|
|00002c80| 61 6c 2d 76 61 72 69 61 | 62 6c 65 20 6d 6f 64 65 |al-varia|ble mode|
|00002c90| 2d 6c 69 6e 65 2d 66 6f | 72 6d 61 74 20 64 65 66 |-line-fo|rmat def|
|00002ca0| 61 75 6c 74 2d 6d 6f 64 | 65 2d 6c 69 6e 65 2d 66 |ault-mod|e-line-f|
|00002cb0| 6f 72 6d 61 74 20 64 69 | 73 70 6c 61 79 2d 62 75 |ormat di|splay-bu|
|00002cc0| 66 66 65 72 20 73 65 74 | 2d 62 75 66 66 65 72 2d |ffer set|-buffer-|
|00002cd0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 65 72 72 6f 72 |modified|-p error|
|00002ce0| 20 22 59 6f 75 72 20 64 | 69 61 72 79 20 66 69 6c | "Your d|iary fil|
|00002cf0| 65 20 69 73 20 6e 6f 74 | 20 72 65 61 64 61 62 6c |e is not| readabl|
|00002d00| 65 21 22 20 22 59 6f 75 | 20 64 6f 6e 27 74 20 68 |e!" "You| don't h|
|00002d10| 61 76 65 20 61 20 64 69 | 61 72 79 20 66 69 6c 65 |ave a di|ary file|
|00002d20| 21 22 5d 20 37 20 22 5c | 0a 53 68 6f 77 20 61 6c |!"] 7 "\|.Show al|
|00002d30| 6c 20 6f 66 20 74 68 65 | 20 64 69 61 72 79 20 65 |l of the| diary e|
|00002d40| 6e 74 72 69 65 73 20 69 | 6e 20 74 68 65 20 64 69 |ntries i|n the di|
|00002d50| 61 72 79 20 66 69 6c 65 | 2e 0a 54 68 69 73 20 66 |ary file|..This f|
|00002d60| 75 6e 63 74 69 6f 6e 20 | 67 65 74 73 20 72 69 64 |unction |gets rid|
|00002d70| 20 6f 66 20 74 68 65 20 | 73 65 6c 65 63 74 69 76 | of the |selectiv|
|00002d80| 65 20 64 69 73 70 6c 61 | 79 20 6f 66 20 74 68 65 |e displa|y of the|
|00002d90| 20 64 69 61 72 79 20 66 | 69 6c 65 20 73 6f 20 74 | diary f|ile so t|
|00002da0| 68 61 74 0a 61 6c 6c 20 | 65 6e 74 72 69 65 73 2c |hat.all |entries,|
|00002db0| 20 6e 6f 74 20 6a 75 73 | 74 20 73 6f 6d 65 2c 20 | not jus|t some, |
|00002dc0| 61 72 65 20 76 69 73 69 | 62 6c 65 2e 20 20 49 66 |are visi|ble.  If|
|00002dd0| 20 74 68 65 72 65 20 69 | 73 20 6e 6f 20 64 69 61 | there i|s no dia|
|00002de0| 72 79 20 62 75 66 66 65 | 72 2c 20 6f 6e 65 0a 69 |ry buffe|r, one.i|
|00002df0| 73 20 63 72 65 61 74 65 | 64 2e 22 20 6e 69 6c 5d |s create|d." nil]|
|00002e00| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 69 61 |).(defal|ias 'dia|
|00002e10| 72 79 2d 6e 61 6d 65 2d | 70 61 74 74 65 72 6e 20 |ry-name-|pattern |
|00002e20| 23 5b 28 73 74 72 69 6e | 67 2d 61 72 72 61 79 20 |#[(strin|g-array |
|00002e30| 26 6f 70 74 69 6f 6e 61 | 6c 20 66 75 6c 6c 6e 61 |&optiona|l fullna|
|00002e40| 6d 65 29 20 22 c0 19 c2 | 1b 5c 66 47 53 0b 54 89 |me) "...|.\fGS.T.|
|00002e50| 13 59 83 35 00 09 89 c0 | 98 83 1a 00 c0 82 1b 00 |.Y.5....|........|
|00002e60| c5 5c 66 0b 48 0e 06 83 | 27 00 c0 82 30 00 c5 5c |.\f.H...|'...0..\|
|00002e70| 66 0b 48 c7 c8 4f c9 51 | 52 11 82 04 00 29 09 29 |f.H..O.Q|R....).)|
|00002e80| 87 22 20 5b 22 22 20 70 | 61 74 74 65 72 6e 20 2d |." ["" p|attern -|
|00002e90| 31 20 69 20 73 74 72 69 | 6e 67 2d 61 72 72 61 79 |1 i stri|ng-array|
|00002ea0| 20 22 5c 5c 7c 22 20 66 | 75 6c 6c 6e 61 6d 65 20 | "\\|" f|ullname |
|00002eb0| 30 20 33 20 22 2e 3f 22 | 5d 20 37 20 22 5c 0a 43 |0 3 ".?"|] 7 "\.C|
|00002ec0| 6f 6e 76 65 72 74 20 61 | 6e 20 53 54 52 49 4e 47 |onvert a|n STRING|
|00002ed0| 2d 41 52 52 41 59 2c 20 | 61 6e 20 61 72 72 61 79 |-ARRAY, |an array|
|00002ee0| 20 6f 66 20 73 74 72 69 | 6e 67 73 20 74 6f 20 61 | of stri|ngs to a|
|00002ef0| 20 70 61 74 74 65 72 6e | 2e 0a 54 68 65 20 70 61 | pattern|..The pa|
|00002f00| 74 74 65 72 6e 20 77 69 | 6c 6c 20 6d 61 74 63 68 |ttern wi|ll match|
|00002f10| 20 61 6e 79 20 6f 66 20 | 74 68 65 20 73 74 72 69 | any of |the stri|
|00002f20| 6e 67 73 2c 20 65 69 74 | 68 65 72 20 65 6e 74 69 |ngs, eit|her enti|
|00002f30| 72 65 6c 79 20 6f 72 20 | 61 62 62 72 65 76 69 61 |rely or |abbrevia|
|00002f40| 74 65 64 0a 74 6f 20 74 | 68 72 65 65 20 63 68 61 |ted.to t|hree cha|
|00002f50| 72 61 63 74 65 72 73 2e | 20 20 41 6e 20 61 62 62 |racters.|  An abb|
|00002f60| 72 65 76 69 61 74 65 64 | 20 66 6f 72 6d 20 77 69 |reviated| form wi|
|00002f70| 6c 6c 20 6d 61 74 63 68 | 20 77 69 74 68 20 6f 72 |ll match| with or|
|00002f80| 20 77 69 74 68 6f 75 74 | 20 61 20 70 65 72 69 6f | without| a perio|
|00002f90| 64 3b 0a 49 66 20 74 68 | 65 20 6f 70 74 69 6f 6e |d;.If th|e option|
|00002fa0| 61 6c 20 46 55 4c 4c 4e | 41 4d 45 20 69 73 20 74 |al FULLN|AME is t|
|00002fb0| 2c 20 61 62 62 72 65 76 | 69 61 74 69 6f 6e 73 20 |, abbrev|iations |
|00002fc0| 77 69 6c 6c 20 6e 6f 74 | 20 6d 61 74 63 68 2c 20 |will not| match, |
|00002fd0| 6a 75 73 74 20 74 68 65 | 20 66 75 6c 6c 0a 6e 61 |just the| full.na|
|00002fe0| 6d 65 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |me."]).(|defalias|
|00002ff0| 20 27 6d 61 72 6b 2d 64 | 69 61 72 79 2d 65 6e 74 | 'mark-d|iary-ent|
|00003000| 72 69 65 73 20 23 5b 6e | 69 6c 20 22 c0 11 c2 0b |ries #[n|il "....|
|00003010| 21 89 1c 83 2e 02 c5 5c | 66 21 83 2e 02 c6 5c 66 |!......\|f!....\f|
|00003020| 21 83 24 02 8a c7 c8 21 | 88 c9 5c 66 c0 5c 22 71 |!.$....!|..\f.\"q|
|00003030| 88 0e 5c 6e cb 1e 5c 66 | 1e 0d ce 20 16 5c 66 cf |..\n..\f|... .\f.|
|00003040| 0e 10 21 88 0e 0d 83 06 | 02 0e 0d 40 40 d1 9a 83 |..!.....|...@@...|
|00003050| 46 00 0e 0d 40 41 82 49 | 00 0e 0d 40 1e 12 d3 0e |F...@A.I|...@....|
|00003060| 14 21 1e 15 d3 0e 16 21 | d7 50 1e 18 d9 1e 1a d9 |.!.....!|.P......|
|00003070| 1e 1b d9 1e 1c 0e 12 47 | 89 1e 1d d5 0e 12 3e 47 |.......G|......>G|
|00003080| 5a 1e 1e 0e 1d 0e 1e 55 | 3f 85 7d 00 0e 1e df 5c |Z......U|?.}....\|
|00003090| 5c 1e 1e 0e 1d d8 0e 12 | 3e 47 5a 1e 20 0e 1d 0e |\.......|>GZ. ...|
|000030a0| 20 55 3f 85 96 00 0e 20 | df 5c 5c 1e 20 0e 1d db | U?.... |.\\. ...|
|000030b0| 0e 12 3e 47 5a 1e 21 0e | 1d 0e 21 55 3f 85 af 00 |..>GZ.!.|..!U?...|
|000030c0| 0e 21 df 5c 5c 1e 21 0e | 1d da 0e 12 3e 47 5a 1e |.!.\\.!.|....>GZ.|
|000030d0| 5c 22 0e 1d 0e 5c 22 55 | 3f 85 c8 00 0e 5c 22 df |\"...\"U|?....\".|
|000030e0| 5c 5c 1e 5c 22 0e 1d dc | 0e 12 3e 47 5a 1e 23 0e |\\.\"...|..>GZ.#.|
|000030f0| 1d 0e 23 55 3f 85 e1 00 | 0e 23 df 5c 5c 1e 23 e4 |..#U?...|.#.\\.#.|
|00003100| e5 e6 0e 12 e7 23 e8 51 | 1e 29 c0 1e 2a 65 62 88 |.....#.Q|.)..*eb.|
|00003110| eb 0e 29 cb c0 23 83 fc | 01 0e 1e 85 09 01 0e 1e |..)..#..|........|
|00003120| 94 0e 1e 95 7b 1e 2c 0e | 20 85 17 01 0e 20 94 0e |....{.,.| .... ..|
|00003130| 20 95 7b 1e 2d ee 0e 5c | 22 83 29 01 0e 5c 22 94 | .{.-..\|".)..\".|
|00003140| 0e 5c 22 95 7b 82 2a 01 | ef 21 1e 30 ee 0e 21 83 |.\".{.*.|.!.0..!.|
|00003150| 3d 01 0e 21 94 0e 21 95 | 7b 82 3e 01 ef 21 1e 31 |=..!..!.|{.>..!.1|
|00003160| 0e 23 85 4d 01 0e 23 94 | 0e 23 95 7b 89 1e 32 84 |.#.M..#.|.#.{..2.|
|00003170| 57 01 f3 82 a3 01 0e 32 | 47 df 55 83 9f 01 0e 34 |W......2|G.U....4|
|00003180| 83 9f 01 f5 20 41 41 40 | 1e 36 ee 0e 32 21 0e 36 |.... AA@|.6..2!.6|
|00003190| f7 a5 f7 5f 5c 5c 89 1e | 38 0e 36 5a f9 56 83 88 |..._\\..|8.6Z.V..|
|000031a0| 01 0e 38 f7 5a 82 9b 01 | 0e 36 0e 38 5a f9 56 83 |..8.Z...|.6.8Z.V.|
|000031b0| 99 01 0e 38 f7 5c 5c 82 | 9b 01 0e 38 2a 82 a3 01 |...8.\\.|...8*...|
|000031c0| ee 0e 32 21 1e 3a 0e 2c | 83 c2 01 fb fc fd 0e 2c |..2!.:.,|.......,|
|000031d0| f3 fe 4f 21 ff 0e 14 f3 | 81 40 00 23 5c 22 41 21 |..O!....|.@.#\"A!|
|000031e0| 88 82 f7 01 0e 2d 83 ec | 01 0e 2d 81 41 00 98 83 |.....-..|..-.A...|
|000031f0| d6 01 f3 16 30 82 ec 01 | fc fd 0e 2d f3 fe 4f 21 |....0...|...-..O!|
|00003200| ff 0e 16 81 42 00 81 43 | 00 23 5c 22 41 16 30 81 |....B..C|.#\"A.0.|
|00003210| 44 00 0e 30 0e 31 0e 3a | 23 88 2e 06 82 f4 00 0e |D..0.1.:|#.......|
|00003220| 0d 41 16 0d 2e 13 82 31 | 00 81 45 00 20 88 81 46 |.A.....1|..E. ..F|
|00003230| 00 81 47 00 81 48 00 5c | 22 88 cf 0e 5c 66 21 88 |..G..H.\|"...\f!.|
|00003240| c7 81 49 00 21 2b 82 35 | 02 81 4a 00 81 4b 00 21 |..I.!+.5|..J..K.!|
|00003250| 82 35 02 81 4a 00 81 4c | 00 21 29 87 22 20 5b 74 |.5..J..L|.!)." [t|
|00003260| 20 6d 61 72 6b 2d 64 69 | 61 72 79 2d 65 6e 74 72 | mark-di|ary-entr|
|00003270| 69 65 73 2d 69 6e 2d 63 | 61 6c 65 6e 64 61 72 20 |ies-in-c|alendar |
|00003280| 73 75 62 73 74 69 74 75 | 74 65 2d 69 6e 2d 66 69 |substitu|te-in-fi|
|00003290| 6c 65 2d 6e 61 6d 65 20 | 64 69 61 72 79 2d 66 69 |le-name |diary-fi|
|000032a0| 6c 65 20 64 2d 66 69 6c | 65 20 66 69 6c 65 2d 65 |le d-fil|e file-e|
|000032b0| 78 69 73 74 73 2d 70 20 | 66 69 6c 65 2d 72 65 61 |xists-p |file-rea|
|000032c0| 64 61 62 6c 65 2d 70 20 | 6d 65 73 73 61 67 65 20 |dable-p |message |
|000032d0| 22 4d 61 72 6b 69 6e 67 | 20 64 69 61 72 79 20 65 |"Marking| diary e|
|000032e0| 6e 74 72 69 65 73 2e 2e | 2e 22 20 66 69 6e 64 2d |ntries..|." find-|
|000032f0| 66 69 6c 65 2d 6e 6f 73 | 65 6c 65 63 74 20 64 69 |file-nos|elect di|
|00003300| 61 72 79 2d 64 61 74 65 | 2d 66 6f 72 6d 73 20 6e |ary-date|-forms n|
|00003310| 69 6c 20 6f 6c 64 2d 64 | 69 61 72 79 2d 73 79 6e |il old-d|iary-syn|
|00003320| 74 61 78 2d 74 61 62 6c | 65 20 64 20 73 79 6e 74 |tax-tabl|e d synt|
|00003330| 61 78 2d 74 61 62 6c 65 | 20 73 65 74 2d 73 79 6e |ax-table| set-syn|
|00003340| 74 61 78 2d 74 61 62 6c | 65 20 64 69 61 72 79 2d |tax-tabl|e diary-|
|00003350| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 62 61 63 |syntax-t|able bac|
|00003360| 6b 75 70 20 64 61 74 65 | 2d 66 6f 72 6d 20 64 69 |kup date|-form di|
|00003370| 61 72 79 2d 6e 61 6d 65 | 2d 70 61 74 74 65 72 6e |ary-name|-pattern|
|00003380| 20 63 61 6c 65 6e 64 61 | 72 2d 64 61 79 2d 6e 61 | calenda|r-day-na|
|00003390| 6d 65 2d 61 72 72 61 79 | 20 64 61 79 6e 61 6d 65 |me-array| dayname|
|000033a0| 20 63 61 6c 65 6e 64 61 | 72 2d 6d 6f 6e 74 68 2d | calenda|r-month-|
|000033b0| 6e 61 6d 65 2d 61 72 72 | 61 79 20 22 5c 5c 7c 5c |name-arr|ay "\\|\|
|000033c0| 5c 2a 22 20 6d 6f 6e 74 | 68 6e 61 6d 65 20 22 5b |\*" mont|hname "[|
|000033d0| 30 2d 39 5d 2b 5c 5c 7c | 5c 5c 2a 22 20 6d 6f 6e |0-9]+\\||\\*" mon|
|000033e0| 74 68 20 64 61 79 20 79 | 65 61 72 20 6c 20 64 2d |th day y|ear l d-|
|000033f0| 6e 61 6d 65 2d 70 6f 73 | 20 32 20 6d 2d 6e 61 6d |name-pos| 2 m-nam|
|00003400| 65 2d 70 6f 73 20 64 2d | 70 6f 73 20 6d 2d 70 6f |e-pos d-|pos m-po|
|00003410| 73 20 79 2d 70 6f 73 20 | 22 5c 5c 28 5c 5c 60 5c |s y-pos |"\\(\\`\|
|00003420| 5c 7c 0d 5c 5c 7c 5c 6e | 5c 5c 29 5c 5c 28 22 20 |\|.\\|\n|\\)\\(" |
|00003430| 6d 61 70 63 6f 6e 63 61 | 74 20 65 76 61 6c 20 22 |mapconca|t eval "|
|00003440| 5c 5c 29 5c 5c 28 22 20 | 22 5c 5c 29 22 20 72 65 |\\)\\(" |"\\)" re|
|00003450| 67 65 78 70 20 63 61 73 | 65 2d 66 6f 6c 64 2d 73 |gexp cas|e-fold-s|
|00003460| 65 61 72 63 68 20 72 65 | 2d 73 65 61 72 63 68 2d |earch re|-search-|
|00003470| 66 6f 72 77 61 72 64 20 | 64 64 2d 6e 61 6d 65 20 |forward |dd-name |
|00003480| 6d 6d 2d 6e 61 6d 65 20 | 73 74 72 69 6e 67 2d 74 |mm-name |string-t|
|00003490| 6f 2d 69 6e 74 20 22 22 | 20 6d 6d 20 64 64 20 79 |o-int ""| mm dd y|
|000034a0| 2d 73 74 72 20 30 20 61 | 62 62 72 65 76 69 61 74 |-str 0 a|bbreviat|
|000034b0| 65 64 2d 63 61 6c 65 6e | 64 61 72 2d 79 65 61 72 |ed-calen|dar-year|
|000034c0| 20 63 61 6c 65 6e 64 61 | 72 2d 63 75 72 72 65 6e | calenda|r-curren|
|000034d0| 74 2d 64 61 74 65 20 63 | 75 72 72 65 6e 74 2d 79 |t-date c|urrent-y|
|000034e0| 20 31 30 30 20 79 20 35 | 30 20 79 79 20 6d 61 72 | 100 y 5|0 yy mar|
|000034f0| 6b 2d 63 61 6c 65 6e 64 | 61 72 2d 64 61 79 73 2d |k-calend|ar-days-|
|00003500| 6e 61 6d 65 64 20 61 73 | 73 6f 63 20 63 61 70 69 |named as|soc capi|
|00003510| 74 61 6c 69 7a 65 20 33 | 20 63 61 6c 65 6e 64 61 |talize 3| calenda|
|00003520| 72 2d 6d 61 6b 65 2d 61 | 6c 69 73 74 20 28 6c 61 |r-make-a|list (la|
|00003530| 6d 62 64 61 20 28 78 29 | 20 28 73 75 62 73 74 72 |mbda (x)| (substr|
|00003540| 69 6e 67 20 78 20 30 20 | 33 29 29 20 22 2a 22 20 |ing x 0 |3)) "*" |
|00003550| 31 20 28 6c 61 6d 62 64 | 61 20 28 78 29 20 28 73 |1 (lambd|a (x) (s|
|00003560| 75 62 73 74 72 69 6e 67 | 20 78 20 30 20 33 29 29 |ubstring| x 0 3))|
|00003570| 20 6d 61 72 6b 2d 63 61 | 6c 65 6e 64 61 72 2d 64 | mark-ca|lendar-d|
|00003580| 61 74 65 2d 70 61 74 74 | 65 72 6e 20 6d 61 72 6b |ate-patt|ern mark|
|00003590| 2d 73 65 78 70 2d 64 69 | 61 72 79 2d 65 6e 74 72 |-sexp-di|ary-entr|
|000035a0| 69 65 73 20 72 75 6e 2d | 68 6f 6f 6b 73 20 6e 6f |ies run-|hooks no|
|000035b0| 6e 67 72 65 67 6f 72 69 | 61 6e 2d 64 69 61 72 79 |ngregori|an-diary|
|000035c0| 2d 6d 61 72 6b 69 6e 67 | 2d 68 6f 6f 6b 20 6d 61 |-marking|-hook ma|
|000035d0| 72 6b 2d 64 69 61 72 79 | 2d 65 6e 74 72 69 65 73 |rk-diary|-entries|
|000035e0| 2d 68 6f 6f 6b 20 22 4d | 61 72 6b 69 6e 67 20 64 |-hook "M|arking d|
|000035f0| 69 61 72 79 20 65 6e 74 | 72 69 65 73 2e 2e 2e 64 |iary ent|ries...d|
|00003600| 6f 6e 65 22 20 65 72 72 | 6f 72 20 22 59 6f 75 72 |one" err|or "Your|
|00003610| 20 64 69 61 72 79 20 66 | 69 6c 65 20 69 73 20 6e | diary f|ile is n|
|00003620| 6f 74 20 72 65 61 64 61 | 62 6c 65 21 22 20 22 59 |ot reada|ble!" "Y|
|00003630| 6f 75 20 64 6f 6e 27 74 | 20 68 61 76 65 20 61 20 |ou don't| have a |
|00003640| 64 69 61 72 79 20 66 69 | 6c 65 21 22 5d 20 38 20 |diary fi|le!"] 8 |
|00003650| 22 5c 0a 4d 61 72 6b 20 | 64 61 79 73 20 69 6e 20 |"\.Mark |days in |
|00003660| 74 68 65 20 63 61 6c 65 | 6e 64 61 72 20 77 69 6e |the cale|ndar win|
|00003670| 64 6f 77 20 74 68 61 74 | 20 68 61 76 65 20 64 69 |dow that| have di|
|00003680| 61 72 79 20 65 6e 74 72 | 69 65 73 2e 0a 45 61 63 |ary entr|ies..Eac|
|00003690| 68 20 65 6e 74 72 79 20 | 69 6e 20 74 68 65 20 64 |h entry |in the d|
|000036a0| 69 61 72 79 20 66 69 6c | 65 20 76 69 73 69 62 6c |iary fil|e visibl|
|000036b0| 65 20 69 6e 20 74 68 65 | 20 63 61 6c 65 6e 64 61 |e in the| calenda|
|000036c0| 72 20 77 69 6e 64 6f 77 | 20 69 73 20 6d 61 72 6b |r window| is mark|
|000036d0| 65 64 2e 0a 41 66 74 65 | 72 20 74 68 65 20 65 6e |ed..Afte|r the en|
|000036e0| 74 72 69 65 73 20 61 72 | 65 20 6d 61 72 6b 65 64 |tries ar|e marked|
|000036f0| 2c 20 74 68 65 20 68 6f | 6f 6b 73 20 60 6e 6f 6e |, the ho|oks `non|
|00003700| 67 72 65 67 6f 72 69 61 | 6e 2d 64 69 61 72 79 2d |gregoria|n-diary-|
|00003710| 6d 61 72 6b 69 6e 67 2d | 68 6f 6f 6b 27 20 61 6e |marking-|hook' an|
|00003720| 64 0a 60 6d 61 72 6b 2d | 64 69 61 72 79 2d 65 6e |d.`mark-|diary-en|
|00003730| 74 72 69 65 73 2d 68 6f | 6f 6b 27 20 61 72 65 20 |tries-ho|ok' are |
|00003740| 72 75 6e 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |run." ni|l]).(def|
|00003750| 61 6c 69 61 73 20 27 6d | 61 72 6b 2d 73 65 78 70 |alias 'm|ark-sexp|
|00003760| 2d 64 69 61 72 79 2d 65 | 6e 74 72 69 65 73 20 23 |-diary-e|ntries #|
|00003770| 5b 6e 69 6c 20 22 c0 09 | 21 1a c3 5c 6e c4 51 1d |[nil "..|!..\n.Q.|
|00003780| c6 1e 07 c6 1e 08 c6 1e | 09 c6 1e 5c 6e 8a 0e 0b |........|...\n...|
|00003790| 71 88 0e 5c 66 16 07 0e | 0d 16 08 29 0e 08 ce 5f |q..\f...|...)..._|
|000037a0| 0e 07 cf 5c 5c 5c 5c 89 | 1e 10 ce a6 54 16 07 0e |...\\\\.|....T...|
|000037b0| 10 ce a5 16 08 29 0e 07 | d1 0e 08 45 41 41 40 53 |.....)..|...EAA@S|
|000037c0| 1e 12 0e 07 d1 0e 08 45 | 40 1e 13 0e 07 d1 0e 08 |.......E|@.......|
|000037d0| 45 41 40 1e 14 0e 07 d1 | 0e 08 45 41 41 40 1e 15 |EA@.....|..EAA@..|
|000037e0| 0e 14 0e 13 53 d6 5f 5c | 5c 1e 17 0e 13 d8 56 83 |....S._\|\.....V.|
|000037f0| a3 00 0e 17 0e 13 d9 5f | da 5c 5c db a5 5a 16 17 |......._|.\\..Z..|
|00003800| 0e 15 d9 a6 dc 55 83 a3 | 00 0e 15 dd a6 dc 55 83 |.....U..|......U.|
|00003810| 9e 00 0e 15 de a6 dc 55 | 83 a3 00 0e 17 54 16 17 |.......U|.....T..|
|00003820| 0e 17 2c 0e 12 df 5f 0e | 12 d9 a5 0e 12 dd a5 5b |..,..._.|.......[|
|00003830| 0e 12 de a5 5c 5c 5c 5c | 5c 5c 5c 5c 29 16 09 0e |....\\\\|\\\\)...|
|00003840| 08 ce 5f 0e 07 d1 5c 5c | 5c 5c 89 1e 10 ce a6 54 |.._...\\|\\.....T|
|00003850| 16 07 0e 10 ce a5 16 08 | 29 0e 07 89 d8 55 83 fd |........|)....U..|
|00003860| 00 0e 08 d9 a6 dc 55 83 | fd 00 0e 08 dd a6 dc 55 |......U.|.......U|
|00003870| 83 f9 00 0e 08 de a6 dc | 55 83 fd 00 e0 82 02 01 |........|U.......|
|00003880| e1 0e 07 53 48 0e 08 45 | 41 41 40 53 1e 12 0e 07 |...SH..E|AA@S....|
|00003890| 89 d8 55 83 32 01 0e 08 | d9 a6 dc 55 83 32 01 0e |..U.2...|...U.2..|
|000038a0| 08 dd a6 dc 55 83 2e 01 | 0e 08 de a6 dc 55 83 32 |....U...|.....U.2|
|000038b0| 01 e0 82 37 01 e1 0e 07 | 53 48 0e 08 45 40 1e 13 |...7....|SH..E@..|
|000038c0| 0e 07 89 d8 55 83 64 01 | 0e 08 d9 a6 dc 55 83 64 |....U.d.|.....U.d|
|000038d0| 01 0e 08 dd a6 dc 55 83 | 60 01 0e 08 de a6 dc 55 |......U.|`......U|
|000038e0| 83 64 01 e0 82 69 01 e1 | 0e 07 53 48 0e 08 45 41 |.d...i..|..SH..EA|
|000038f0| 40 1e 14 0e 07 89 d8 55 | 83 97 01 0e 08 d9 a6 dc |@......U|........|
|00003900| 55 83 97 01 0e 08 dd a6 | dc 55 83 93 01 0e 08 de |U.......|.U......|
|00003910| a6 dc 55 83 97 01 e0 82 | 9c 01 e1 0e 07 53 48 0e |..U.....|.....SH.|
|00003920| 08 45 41 41 40 1e 15 0e | 14 0e 13 53 d6 5f 5c 5c |.EAA@...|...S._\\|
|00003930| 1e 17 0e 13 d8 56 83 e2 | 01 0e 17 0e 13 d9 5f da |.....V..|......_.|
|00003940| 5c 5c db a5 5a 16 17 0e | 15 d9 a6 dc 55 83 e2 01 |\\..Z...|....U...|
|00003950| 0e 15 dd a6 dc 55 83 dd | 01 0e 15 de a6 dc 55 83 |.....U..|......U.|
|00003960| e2 01 0e 17 54 16 17 0e | 17 2c 0e 12 df 5f 0e 12 |....T...|.,..._..|
|00003970| d9 a5 0e 12 dd a5 5b 0e | 12 de a5 5c 5c 5c 5c 5c |......[.|...\\\\\|
|00003980| 5c 5c 5c 29 16 5c 6e 65 | 62 88 e2 0d c6 e3 23 85 |\\\).\ne|b.....#.|
|00003990| af 02 e4 d1 21 88 60 c6 | 89 89 89 1e 25 1e 26 1e |....!.`.|....%.&.|
|000039a0| 27 1e 28 1e 29 ea 20 88 | 0e 29 60 7b 16 28 8a eb |'.(.). .|.)`{.(..|
|000039b0| ec 21 88 60 16 25 29 d1 | 75 88 ed 68 ee 5c 22 84 |.!.`.%).|u..h.\".|
|000039c0| 3e 02 ed 68 db 5c 22 83 | 4e 02 ef f0 21 84 4e 02 |>..h.\".|N...!.N.|
|000039d0| e4 d1 21 88 f1 16 27 82 | 82 02 60 16 26 e2 f2 c6 |..!...'.|..`.&...|
|000039e0| e3 23 88 ef f0 21 83 66 | 02 e2 f2 c6 e3 23 88 82 |.#...!.f|.....#..|
|000039f0| 57 02 e4 d1 21 88 0e 26 | 60 7b 16 27 f3 f4 0e 27 |W...!..&|`{.'...'|
|00003a00| 5c 22 83 82 02 0e 27 dc | 94 db 49 88 82 70 02 0e |\"....'.|..I..p..|
|00003a10| 09 53 1e 35 0e 5c 6e 0e | 35 54 89 16 35 59 83 aa |.S.5.\n.|5T..5Y..|
|00003a20| 02 f6 0e 28 0e 27 f7 0e | 35 21 23 83 87 02 f8 f7 |...(.'..|5!#.....|
|00003a30| 0e 35 21 21 88 82 87 02 | 2e 06 82 00 02 2e 06 87 |.5!!....|........|
|00003a40| 22 20 5b 72 65 67 65 78 | 70 2d 71 75 6f 74 65 20 |" [regex|p-quote |
|00003a50| 73 65 78 70 2d 64 69 61 | 72 79 2d 65 6e 74 72 79 |sexp-dia|ry-entry|
|00003a60| 2d 73 79 6d 62 6f 6c 20 | 73 65 78 70 2d 6d 61 72 |-symbol |sexp-mar|
|00003a70| 6b 20 22 5c 5c 28 5c 5c | 60 5c 5c 7c 0d 5c 5c 7c |k "\\(\\|`\\|.\\||
|00003a80| 5c 6e 5c 5c 29 22 20 22 | 28 22 20 73 2d 65 6e 74 |\n\\)" "|(" s-ent|
|00003a90| 72 79 20 6e 69 6c 20 6d | 20 79 20 66 69 72 73 74 |ry nil m| y first|
|00003aa0| 2d 64 61 74 65 20 6c 61 | 73 74 2d 64 61 74 65 20 |-date la|st-date |
|00003ab0| 63 61 6c 65 6e 64 61 72 | 2d 62 75 66 66 65 72 20 |calendar|-buffer |
|00003ac0| 64 69 73 70 6c 61 79 65 | 64 2d 6d 6f 6e 74 68 20 |displaye|d-month |
|00003ad0| 64 69 73 70 6c 61 79 65 | 64 2d 79 65 61 72 20 31 |displaye|d-year 1|
|00003ae0| 32 20 2d 32 20 6d 61 63 | 72 6f 2d 79 20 31 20 70 |2 -2 mac|ro-y 1 p|
|00003af0| 72 69 6f 72 2d 79 65 61 | 72 73 20 6d 6f 6e 74 68 |rior-yea|rs month|
|00003b00| 20 64 61 79 20 79 65 61 | 72 20 33 31 20 64 61 79 | day yea|r 31 day|
|00003b10| 2d 6f 66 2d 79 65 61 72 | 20 32 20 34 20 32 33 20 |-of-year| 2 4 23 |
|00003b20| 31 30 20 30 20 31 30 30 | 20 34 30 30 20 33 36 35 |10 0 100| 400 365|
|00003b30| 20 32 39 20 5b 33 31 20 | 32 38 20 33 31 20 33 30 | 29 [31 |28 31 30|
|00003b40| 20 33 31 20 33 30 20 33 | 31 20 33 31 20 33 30 20 | 31 30 3|1 31 30 |
|00003b50| 33 31 20 33 30 20 33 31 | 5d 20 72 65 2d 73 65 61 |31 30 31|] re-sea|
|00003b60| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 74 20 62 61 |rch-forw|ard t ba|
|00003b70| 63 6b 77 61 72 64 2d 63 | 68 61 72 20 6c 69 6e 65 |ckward-c|har line|
|00003b80| 2d 73 74 61 72 74 20 65 | 6e 74 72 79 2d 73 74 61 |-start e|ntry-sta|
|00003b90| 72 74 20 65 6e 74 72 79 | 20 73 65 78 70 20 73 65 |rt entry| sexp se|
|00003ba0| 78 70 2d 73 74 61 72 74 | 20 66 6f 72 77 61 72 64 |xp-start| forward|
|00003bb0| 2d 73 65 78 70 20 72 65 | 2d 73 65 61 72 63 68 2d |-sexp re|-search-|
|00003bc0| 62 61 63 6b 77 61 72 64 | 20 22 0d 5c 5c 7c 5c 6e |backward| ".\\|\n|
|00003bd0| 5c 5c 7c 5c 5c 60 22 20 | 63 68 61 72 2d 65 71 75 |\\|\\`" |char-equ|
|00003be0| 61 6c 20 31 33 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |al 13 lo|oking-at|
|00003bf0| 20 22 20 5c 5c 7c 09 22 | 20 22 22 20 22 0d 5c 5c | " \\|."| "" ".\\|
|00003c00| 7c 5c 6e 22 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 ||\n" str|ing-matc|
|00003c10| 68 20 22 5b 0d 5d 22 20 | 64 61 74 65 20 64 69 61 |h "[.]" |date dia|
|00003c20| 72 79 2d 73 65 78 70 2d | 65 6e 74 72 79 20 63 61 |ry-sexp-|entry ca|
|00003c30| 6c 65 6e 64 61 72 2d 67 | 72 65 67 6f 72 69 61 6e |lendar-g|regorian|
|00003c40| 2d 66 72 6f 6d 2d 61 62 | 73 6f 6c 75 74 65 20 6d |-from-ab|solute m|
|00003c50| 61 72 6b 2d 76 69 73 69 | 62 6c 65 2d 63 61 6c 65 |ark-visi|ble-cale|
|00003c60| 6e 64 61 72 2d 64 61 74 | 65 5d 20 37 20 22 5c 0a |ndar-dat|e] 7 "\.|
|00003c70| 4d 61 72 6b 20 64 61 79 | 73 20 69 6e 20 74 68 65 |Mark day|s in the|
|00003c80| 20 63 61 6c 65 6e 64 61 | 72 20 77 69 6e 64 6f 77 | calenda|r window|
|00003c90| 20 74 68 61 74 20 68 61 | 76 65 20 73 65 78 70 20 | that ha|ve sexp |
|00003ca0| 64 69 61 72 79 20 65 6e | 74 72 69 65 73 2e 0a 45 |diary en|tries..E|
|00003cb0| 61 63 68 20 65 6e 74 72 | 79 20 69 6e 20 74 68 65 |ach entr|y in the|
|00003cc0| 20 64 69 61 72 79 20 66 | 69 6c 65 20 28 6f 72 20 | diary f|ile (or |
|00003cd0| 69 6e 63 6c 75 64 65 64 | 20 66 69 6c 65 73 29 20 |included| files) |
|00003ce0| 76 69 73 69 62 6c 65 20 | 69 6e 20 74 68 65 20 63 |visible |in the c|
|00003cf0| 61 6c 65 6e 64 61 72 20 | 77 69 6e 64 6f 77 0a 69 |alendar |window.i|
|00003d00| 73 20 6d 61 72 6b 65 64 | 2e 20 20 53 65 65 20 74 |s marked|.  See t|
|00003d10| 68 65 20 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |he docum|entation|
|00003d20| 20 66 6f 72 20 74 68 65 | 20 66 75 6e 63 74 69 6f | for the| functio|
|00003d30| 6e 20 60 6c 69 73 74 2d | 73 65 78 70 2d 64 69 61 |n `list-|sexp-dia|
|00003d40| 72 79 2d 65 6e 74 72 69 | 65 73 27 2e 22 5d 29 0a |ry-entri|es'."]).|
|00003d50| 28 64 65 66 61 6c 69 61 | 73 20 27 6d 61 72 6b 2d |(defalia|s 'mark-|
|00003d60| 69 6e 63 6c 75 64 65 64 | 2d 64 69 61 72 79 2d 66 |included|-diary-f|
|00003d70| 69 6c 65 73 20 23 5b 6e | 69 6c 20 22 65 62 88 c0 |iles #[n|il "eb..|
|00003d80| c1 c2 0b 21 c4 51 c5 c6 | 23 83 58 00 c7 c8 94 c8 |...!.Q..|#.X.....|
|00003d90| 95 7b 21 c9 1e 5c 6e 1e | 0b cc 0e 0b 21 83 47 00 |.{!..\n.|....!.G.|
|00003da0| cd 0e 0b 21 83 37 00 ce | 20 88 cf d0 0e 0b 21 21 |...!.7..| .....!!|
|00003db0| 88 82 54 00 d1 20 88 d2 | d3 0e 0b 5c 22 88 d4 c8 |..T.. ..|...\"...|
|00003dc0| 21 88 82 54 00 d1 20 88 | d2 d5 0e 0b 5c 22 88 d4 |!..T.. .|....\"..|
|00003dd0| c8 21 88 2a 82 03 00 65 | 62 87 22 20 5b 72 65 2d |.!.*...e|b." [re-|
|00003de0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00003df0| 5c 5c 28 5c 5c 60 5c 5c | 7c 0d 5c 5c 7c 5c 6e 5c |\\(\\`\\||.\\|\n\|
|00003e00| 5c 29 22 20 72 65 67 65 | 78 70 2d 71 75 6f 74 65 |\)" rege|xp-quote|
|00003e10| 20 64 69 61 72 79 2d 69 | 6e 63 6c 75 64 65 2d 73 | diary-i|nclude-s|
|00003e20| 74 72 69 6e 67 20 22 20 | 5c 22 5c 5c 28 5b 5e 5c |tring " |\"\\([^\|
|00003e30| 22 5d 2a 5c 5c 29 5c 22 | 22 20 6e 69 6c 20 74 20 |"]*\\)\"|" nil t |
|00003e40| 73 75 62 73 74 69 74 75 | 74 65 2d 69 6e 2d 66 69 |substitu|te-in-fi|
|00003e50| 6c 65 2d 6e 61 6d 65 20 | 32 20 6d 61 72 6b 2d 69 |le-name |2 mark-i|
|00003e60| 6e 63 6c 75 64 65 64 2d | 64 69 61 72 79 2d 66 69 |ncluded-|diary-fi|
|00003e70| 6c 65 73 20 6d 61 72 6b | 2d 64 69 61 72 79 2d 65 |les mark|-diary-e|
|00003e80| 6e 74 72 69 65 73 2d 68 | 6f 6f 6b 20 64 69 61 72 |ntries-h|ook diar|
|00003e90| 79 2d 66 69 6c 65 20 66 | 69 6c 65 2d 65 78 69 73 |y-file f|ile-exis|
|00003ea0| 74 73 2d 70 20 66 69 6c | 65 2d 72 65 61 64 61 62 |ts-p fil|e-readab|
|00003eb0| 6c 65 2d 70 20 6d 61 72 | 6b 2d 64 69 61 72 79 2d |le-p mar|k-diary-|
|00003ec0| 65 6e 74 72 69 65 73 20 | 6b 69 6c 6c 2d 62 75 66 |entries |kill-buf|
|00003ed0| 66 65 72 20 67 65 74 2d | 66 69 6c 65 2d 62 75 66 |fer get-|file-buf|
|00003ee0| 66 65 72 20 62 65 65 70 | 20 6d 65 73 73 61 67 65 |fer beep| message|
|00003ef0| 20 22 43 61 6e 27 74 20 | 72 65 61 64 20 69 6e 63 | "Can't |read inc|
|00003f00| 6c 75 64 65 64 20 64 69 | 61 72 79 20 66 69 6c 65 |luded di|ary file|
|00003f10| 20 25 73 22 20 73 6c 65 | 65 70 2d 66 6f 72 20 22 | %s" sle|ep-for "|
|00003f20| 43 61 6e 27 74 20 66 69 | 6e 64 20 69 6e 63 6c 75 |Can't fi|nd inclu|
|00003f30| 64 65 64 20 64 69 61 72 | 79 20 66 69 6c 65 20 25 |ded diar|y file %|
|00003f40| 73 22 5d 20 34 20 22 5c | 0a 4d 61 72 6b 20 74 68 |s"] 4 "\|.Mark th|
|00003f50| 65 20 64 69 61 72 79 20 | 65 6e 74 72 69 65 73 20 |e diary |entries |
|00003f60| 66 72 6f 6d 20 6f 74 68 | 65 72 20 64 69 61 72 79 |from oth|er diary|
|00003f70| 20 66 69 6c 65 73 20 77 | 69 74 68 20 74 68 6f 73 | files w|ith thos|
|00003f80| 65 20 6f 66 20 74 68 65 | 20 64 69 61 72 79 20 66 |e of the| diary f|
|00003f90| 69 6c 65 2e 0a 54 68 69 | 73 20 66 75 6e 63 74 69 |ile..Thi|s functi|
|00003fa0| 6f 6e 20 69 73 20 73 75 | 69 74 61 62 6c 65 20 66 |on is su|itable f|
|00003fb0| 6f 72 20 75 73 65 20 61 | 73 20 74 68 65 20 60 6d |or use a|s the `m|
|00003fc0| 61 72 6b 2d 64 69 61 72 | 79 2d 65 6e 74 72 69 65 |ark-diar|y-entrie|
|00003fd0| 73 2d 68 6f 6f 6b 27 3b | 20 69 74 20 65 6e 61 62 |s-hook';| it enab|
|00003fe0| 6c 65 73 0a 79 6f 75 20 | 74 6f 20 75 73 65 20 73 |les.you |to use s|
|00003ff0| 68 61 72 65 64 20 64 69 | 61 72 79 20 66 69 6c 65 |hared di|ary file|
|00004000| 73 20 74 6f 67 65 74 68 | 65 72 20 77 69 74 68 20 |s togeth|er with |
|00004010| 79 6f 75 72 20 6f 77 6e | 2e 20 20 54 68 65 20 66 |your own|.  The f|
|00004020| 69 6c 65 73 20 69 6e 63 | 6c 75 64 65 64 20 61 72 |iles inc|luded ar|
|00004030| 65 0a 73 70 65 63 69 66 | 69 65 64 20 69 6e 20 74 |e.specif|ied in t|
|00004040| 68 65 20 64 69 61 72 79 | 2d 66 69 6c 65 20 62 79 |he diary|-file by|
|00004050| 20 6c 69 6e 65 73 20 6f | 66 20 74 68 69 73 20 66 | lines o|f this f|
|00004060| 6f 72 6d 3a 0a 20 20 20 | 20 20 20 20 20 23 69 6e |orm:.   |     #in|
|00004070| 63 6c 75 64 65 20 5c 22 | 66 69 6c 65 6e 61 6d 65 |clude \"|filename|
|00004080| 5c 22 0a 54 68 69 73 20 | 69 73 20 72 65 63 75 72 |\".This |is recur|
|00004090| 73 69 76 65 3b 20 74 68 | 61 74 20 69 73 2c 20 23 |sive; th|at is, #|
|000040a0| 69 6e 63 6c 75 64 65 20 | 64 69 72 65 63 74 69 76 |include |directiv|
|000040b0| 65 73 20 69 6e 20 64 69 | 61 72 79 20 66 69 6c 65 |es in di|ary file|
|000040c0| 73 20 74 68 75 73 20 69 | 6e 63 6c 75 64 65 64 0a |s thus i|ncluded.|
|000040d0| 61 72 65 20 6f 62 65 79 | 65 64 2e 20 20 59 6f 75 |are obey|ed.  You|
|000040e0| 20 63 61 6e 20 63 68 61 | 6e 67 65 20 74 68 65 20 | can cha|nge the |
|000040f0| 60 23 69 6e 63 6c 75 64 | 65 27 20 74 6f 20 73 6f |`#includ|e' to so|
|00004100| 6d 65 20 6f 74 68 65 72 | 20 73 74 72 69 6e 67 20 |me other| string |
|00004110| 62 79 0a 63 68 61 6e 67 | 69 6e 67 20 74 68 65 20 |by.chang|ing the |
|00004120| 76 61 72 69 61 62 6c 65 | 20 60 64 69 61 72 79 2d |variable| `diary-|
|00004130| 69 6e 63 6c 75 64 65 2d | 73 74 72 69 6e 67 27 2e |include-|string'.|
|00004140| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |"]).(def|alias 'm|
|00004150| 61 72 6b 2d 63 61 6c 65 | 6e 64 61 72 2d 64 61 79 |ark-cale|ndar-day|
|00004160| 73 2d 6e 61 6d 65 64 20 | 23 5b 28 64 61 79 6e 61 |s-named |#[(dayna|
|00004170| 6d 65 29 20 22 8a 08 71 | 88 09 5c 6e 09 5c 6e c3 |me) "..q|..\n.\n.|
|00004180| 89 1c 1d 1e 06 1e 07 1e | 08 1e 09 0e 06 ca 5f 0e |........|......_.|
|00004190| 07 5c 5c 89 1e 0b ca a6 | 54 16 07 0e 0b ca a5 16 |.\\.....|T.......|
|000041a0| 06 29 0e 08 ca 5f 0e 09 | cc 5c 5c 5c 5c 89 1e 0b |.)..._..|.\\\\...|
|000041b0| ca a6 54 16 09 0e 0b ca | a5 16 08 29 cd ce 0e 0f |..T.....|...)....|
|000041c0| 0e 09 0e 08 24 41 41 40 | 53 1e 10 cd ce 0e 0f 0e |....$AA@|S.......|
|000041d0| 09 0e 08 24 40 1e 11 cd | ce 0e 0f 0e 09 0e 08 24 |...$@...|.......$|
|000041e0| 41 40 1c cd ce 0e 0f 0e | 09 0e 08 24 41 41 40 1e |A@......|...$AA@.|
|000041f0| 12 5c 66 0e 11 53 d3 5f | 5c 5c 1e 14 0e 11 d5 56 |.\f..S._|\\.....V|
|00004200| 83 b4 00 0e 14 0e 11 d6 | 5f d7 5c 5c d8 a5 5a 16 |........|_.\\..Z.|
|00004210| 14 0e 12 d6 a6 d9 55 83 | b4 00 0e 12 da a6 d9 55 |......U.|.......U|
|00004220| 83 af 00 0e 12 db a6 d9 | 55 83 b4 00 0e 14 54 16 |........|U.....T.|
|00004230| 14 0e 14 2c 0e 10 dc 5f | 0e 10 d6 a5 0e 10 da a5 |...,..._|........|
|00004240| 5b 0e 10 db a5 5c 5c 5c | 5c 5c 5c 5c 5c 29 14 cd |[....\\\|\\\\\)..|
|00004250| dd 0e 0f 0e 07 0e 06 24 | 41 41 40 53 1e 10 cd dd |.......$|AA@S....|
|00004260| 0e 0f 0e 07 0e 06 24 40 | 1e 11 cd dd 0e 0f 0e 07 |......$@|........|
|00004270| 0e 06 24 41 40 1c cd dd | 0e 0f 0e 07 0e 06 24 41 |..$A@...|......$A|
|00004280| 41 40 1e 12 5c 66 0e 11 | 53 d3 5f 5c 5c 1e 14 0e |A@..\f..|S._\\...|
|00004290| 11 d5 56 83 40 01 0e 14 | 0e 11 d6 5f d7 5c 5c d8 |..V.@...|..._.\\.|
|000042a0| a5 5a 16 14 0e 12 d6 a6 | d9 55 83 40 01 0e 12 da |.Z......|.U.@....|
|000042b0| a6 d9 55 83 3b 01 0e 12 | db a6 d9 55 83 40 01 0e |..U.;...|...U.@..|
|000042c0| 14 54 16 14 0e 14 2c 0e | 10 dc 5f 0e 10 d6 a5 0e |.T....,.|.._.....|
|000042d0| 10 da a5 5b 0e 10 db a5 | 5c 5c 5c 5c 5c 5c 5c 5c |...[....|\\\\\\\\|
|000042e0| 29 15 5c 66 0d 58 85 6e | 01 de df 5c 66 21 21 88 |).\f.X.n|...\f!!.|
|000042f0| 5c 66 e0 5c 5c 89 14 82 | 5b 01 2e 07 87 22 20 5b |\f.\\...|[...." [|
|00004300| 63 61 6c 65 6e 64 61 72 | 2d 62 75 66 66 65 72 20 |calendar|-buffer |
|00004310| 64 69 73 70 6c 61 79 65 | 64 2d 6d 6f 6e 74 68 20 |displaye|d-month |
|00004320| 64 69 73 70 6c 61 79 65 | 64 2d 79 65 61 72 20 6e |displaye|d-year n|
|00004330| 69 6c 20 64 61 79 20 6c | 61 73 74 2d 64 61 79 20 |il day l|ast-day |
|00004340| 73 75 63 63 2d 79 65 61 | 72 20 73 75 63 63 2d 6d |succ-yea|r succ-m|
|00004350| 6f 6e 74 68 20 70 72 65 | 76 2d 79 65 61 72 20 70 |onth pre|v-year p|
|00004360| 72 65 76 2d 6d 6f 6e 74 | 68 20 31 32 20 6d 61 63 |rev-mont|h 12 mac|
|00004370| 72 6f 2d 79 20 2d 32 20 | 63 61 6c 65 6e 64 61 72 |ro-y -2 |calendar|
|00004380| 2d 6e 74 68 2d 6e 61 6d | 65 64 2d 64 61 79 20 31 |-nth-nam|ed-day 1|
|00004390| 20 64 61 79 6e 61 6d 65 | 20 70 72 69 6f 72 2d 79 | dayname| prior-y|
|000043a0| 65 61 72 73 20 6d 6f 6e | 74 68 20 79 65 61 72 20 |ears mon|th year |
|000043b0| 33 31 20 64 61 79 2d 6f | 66 2d 79 65 61 72 20 32 |31 day-o|f-year 2|
|000043c0| 20 34 20 32 33 20 31 30 | 20 30 20 31 30 30 20 34 | 4 23 10| 0 100 4|
|000043d0| 30 30 20 33 36 35 20 2d | 31 20 6d 61 72 6b 2d 76 |00 365 -|1 mark-v|
|000043e0| 69 73 69 62 6c 65 2d 63 | 61 6c 65 6e 64 61 72 2d |isible-c|alendar-|
|000043f0| 64 61 74 65 20 63 61 6c | 65 6e 64 61 72 2d 67 72 |date cal|endar-gr|
|00004400| 65 67 6f 72 69 61 6e 2d | 66 72 6f 6d 2d 61 62 73 |egorian-|from-abs|
|00004410| 6f 6c 75 74 65 20 37 5d | 20 37 20 22 5c 0a 4d 61 |olute 7]| 7 "\.Ma|
|00004420| 72 6b 20 61 6c 6c 20 64 | 61 74 65 73 20 69 6e 20 |rk all d|ates in |
|00004430| 74 68 65 20 63 61 6c 65 | 6e 64 61 72 20 77 69 6e |the cale|ndar win|
|00004440| 64 6f 77 20 74 68 61 74 | 20 61 72 65 20 64 61 79 |dow that| are day|
|00004450| 20 44 41 59 4e 41 4d 45 | 20 6f 66 20 74 68 65 20 | DAYNAME| of the |
|00004460| 77 65 65 6b 2e 0a 30 20 | 6d 65 61 6e 73 20 61 6c |week..0 |means al|
|00004470| 6c 20 53 75 6e 64 61 79 | 73 2c 20 31 20 6d 65 61 |l Sunday|s, 1 mea|
|00004480| 6e 73 20 61 6c 6c 20 4d | 6f 6e 64 61 79 73 2c 20 |ns all M|ondays, |
|00004490| 61 6e 64 20 73 6f 20 6f | 6e 2e 22 5d 29 0a 28 64 |and so o|n."]).(d|
|000044a0| 65 66 61 6c 69 61 73 20 | 27 6d 61 72 6b 2d 63 61 |efalias |'mark-ca|
|000044b0| 6c 65 6e 64 61 72 2d 64 | 61 74 65 2d 70 61 74 74 |lendar-d|ate-patt|
|000044c0| 65 72 6e 20 23 5b 28 6d | 6f 6e 74 68 20 64 61 79 |ern #[(m|onth day|
|000044d0| 20 79 65 61 72 29 20 22 | 8a 08 71 88 09 5c 6e 1b | year) "|..q..\n.|
|000044e0| 1c 0b c5 5f 5c 66 c6 5c | 5c 5c 5c 89 1e 07 c5 a6 |..._\f.\|\\\.....|
|000044f0| 54 14 0e 07 c5 a5 13 29 | c8 1e 09 ca 0e 09 54 89 |T......)|......T.|
|00004500| 16 09 59 85 4a 00 cb 5c | 66 0b 0e 5c 66 0e 0d 0e |..Y.J..\|f..\f...|
|00004510| 0e 25 88 0b c5 5f 5c 66 | 5c 5c 89 1e 07 c5 a6 54 |.%..._\f|\\.....T|
|00004520| 14 0e 07 c5 a5 13 29 82 | 1f 00 2c 87 22 20 5b 63 |......).|..,." [c|
|00004530| 61 6c 65 6e 64 61 72 2d | 62 75 66 66 65 72 20 64 |alendar-|buffer d|
|00004540| 69 73 70 6c 61 79 65 64 | 2d 6d 6f 6e 74 68 20 64 |isplayed|-month d|
|00004550| 69 73 70 6c 61 79 65 64 | 2d 79 65 61 72 20 79 20 |isplayed|-year y |
|00004560| 6d 20 31 32 20 2d 32 20 | 6d 61 63 72 6f 2d 79 20 |m 12 -2 |macro-y |
|00004570| 2d 31 20 69 20 32 20 6d | 61 72 6b 2d 63 61 6c 65 |-1 i 2 m|ark-cale|
|00004580| 6e 64 61 72 2d 6d 6f 6e | 74 68 20 6d 6f 6e 74 68 |ndar-mon|th month|
|00004590| 20 64 61 79 20 79 65 61 | 72 5d 20 37 20 22 5c 0a | day yea|r] 7 "\.|
|000045a0| 4d 61 72 6b 20 61 6c 6c | 20 64 61 74 65 73 20 69 |Mark all| dates i|
|000045b0| 6e 20 74 68 65 20 63 61 | 6c 65 6e 64 61 72 20 77 |n the ca|lendar w|
|000045c0| 69 6e 64 6f 77 20 74 68 | 61 74 20 63 6f 6e 66 6f |indow th|at confo|
|000045d0| 72 6d 20 74 6f 20 4d 4f | 4e 54 48 2f 44 41 59 2f |rm to MO|NTH/DAY/|
|000045e0| 59 45 41 52 2e 0a 41 20 | 76 61 6c 75 65 20 6f 66 |YEAR..A |value of|
|000045f0| 20 30 20 69 6e 20 61 6e | 79 20 70 6f 73 69 74 69 | 0 in an|y positi|
|00004600| 6f 6e 20 69 73 20 61 20 | 77 69 6c 64 63 61 72 64 |on is a |wildcard|
|00004610| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00004620| 6d 61 72 6b 2d 63 61 6c | 65 6e 64 61 72 2d 6d 6f |mark-cal|endar-mo|
|00004630| 6e 74 68 20 23 5b 28 6d | 6f 6e 74 68 20 79 65 61 |nth #[(m|onth yea|
|00004640| 72 20 70 2d 6d 6f 6e 74 | 68 20 70 2d 64 61 79 20 |r p-mont|h p-day |
|00004650| 70 2d 79 65 61 72 29 20 | 22 08 09 55 83 12 00 5c |p-year) |"..U...\|
|00004660| 6e c3 55 84 24 00 5c 66 | 5c 6e 55 84 24 00 09 c3 |n.U.$.\f|\nU.$...|
|00004670| 55 85 70 00 5c 6e c3 55 | 84 24 00 5c 66 5c 6e 55 |U.p.\n.U|.$.\f\nU|
|00004680| 85 70 00 0d c3 55 83 6a | 00 c3 1e 06 08 c7 55 83 |.p...U.j|......U.|
|00004690| 4f 00 5c 66 c8 a6 c3 55 | 83 4f 00 5c 66 c9 a6 c3 |O.\f...U|.O.\f...|
|000046a0| 55 83 4b 00 5c 66 ca a6 | c3 55 83 4f 00 cb 82 53 |U.K.\f..|.U.O...S|
|000046b0| 00 cc 08 53 48 0e 06 54 | 89 16 06 59 85 68 00 cd |...SH..T|...Y.h..|
|000046c0| 08 0e 06 5c 66 45 21 88 | 82 2d 00 29 87 cd 08 0d |...\fE!.|.-.)....|
|000046d0| 5c 66 45 21 87 22 20 5b | 6d 6f 6e 74 68 20 70 2d |\fE!." [|month p-|
|000046e0| 6d 6f 6e 74 68 20 70 2d | 79 65 61 72 20 30 20 79 |month p-|year 0 y|
|000046f0| 65 61 72 20 70 2d 64 61 | 79 20 69 20 32 20 34 20 |ear p-da|y i 2 4 |
|00004700| 31 30 30 20 34 30 30 20 | 32 39 20 5b 33 31 20 32 |100 400 |29 [31 2|
|00004710| 38 20 33 31 20 33 30 20 | 33 31 20 33 30 20 33 31 |8 31 30 |31 30 31|
|00004720| 20 33 31 20 33 30 20 33 | 31 20 33 30 20 33 31 5d | 31 30 3|1 30 31]|
|00004730| 20 6d 61 72 6b 2d 76 69 | 73 69 62 6c 65 2d 63 61 | mark-vi|sible-ca|
|00004740| 6c 65 6e 64 61 72 2d 64 | 61 74 65 5d 20 34 20 22 |lendar-d|ate] 4 "|
|00004750| 5c 0a 4d 61 72 6b 20 64 | 61 74 65 73 20 69 6e 20 |\.Mark d|ates in |
|00004760| 74 68 65 20 4d 4f 4e 54 | 48 2f 59 45 41 52 20 74 |the MONT|H/YEAR t|
|00004770| 68 61 74 20 63 6f 6e 66 | 6f 72 6d 20 74 6f 20 70 |hat conf|orm to p|
|00004780| 61 74 74 65 72 6e 20 50 | 2d 4d 4f 4e 54 48 2f 50 |attern P|-MONTH/P|
|00004790| 5f 44 41 59 2f 50 2d 59 | 45 41 52 2e 0a 41 20 76 |_DAY/P-Y|EAR..A v|
|000047a0| 61 6c 75 65 20 6f 66 20 | 30 20 69 6e 20 61 6e 79 |alue of |0 in any|
|000047b0| 20 70 6f 73 69 74 69 6f | 6e 20 6f 66 20 74 68 65 | positio|n of the|
|000047c0| 20 70 61 74 74 65 72 6e | 20 69 73 20 61 20 77 69 | pattern| is a wi|
|000047d0| 6c 64 63 61 72 64 2e 22 | 5d 29 0a 28 64 65 66 61 |ldcard."|]).(defa|
|000047e0| 6c 69 61 73 20 27 73 6f | 72 74 2d 64 69 61 72 79 |lias 'so|rt-diary|
|000047f0| 2d 65 6e 74 72 69 65 73 | 20 23 5b 6e 69 6c 20 22 |-entries| #[nil "|
|00004800| c0 09 c2 5c 22 89 11 87 | 22 20 5b 73 6f 72 74 20 |...\"...|" [sort |
|00004810| 64 69 61 72 79 2d 65 6e | 74 72 69 65 73 2d 6c 69 |diary-en|tries-li|
|00004820| 73 74 20 64 69 61 72 79 | 2d 65 6e 74 72 79 2d 63 |st diary|-entry-c|
|00004830| 6f 6d 70 61 72 65 5d 20 | 33 20 22 5c 0a 53 6f 72 |ompare] |3 "\.Sor|
|00004840| 74 20 74 68 65 20 6c 69 | 73 74 20 6f 66 20 64 69 |t the li|st of di|
|00004850| 61 72 79 20 65 6e 74 72 | 69 65 73 20 62 79 20 74 |ary entr|ies by t|
|00004860| 69 6d 65 20 6f 66 20 64 | 61 79 2e 22 5d 29 0a 28 |ime of d|ay."]).(|
|00004870| 64 65 66 61 6c 69 61 73 | 20 27 64 69 61 72 79 2d |defalias| 'diary-|
|00004880| 65 6e 74 72 79 2d 63 6f | 6d 70 61 72 65 20 23 5b |entry-co|mpare #[|
|00004890| 28 65 31 20 65 32 29 20 | 22 c0 09 5c 6e 5c 22 86 |(e1 e2) |"..\n\".|
|000048a0| 1b 00 c3 09 40 5c 6e 40 | 5c 22 85 1b 00 c4 09 41 |....@\n@|\".....A|
|000048b0| 40 21 c4 5c 6e 41 40 21 | 57 87 22 20 5b 63 61 6c |@!.\nA@!|W." [cal|
|000048c0| 65 6e 64 61 72 2d 64 61 | 74 65 2d 63 6f 6d 70 61 |endar-da|te-compa|
|000048d0| 72 65 20 65 31 20 65 32 | 20 63 61 6c 65 6e 64 61 |re e1 e2| calenda|
|000048e0| 72 2d 64 61 74 65 2d 65 | 71 75 61 6c 20 64 69 61 |r-date-e|qual dia|
|000048f0| 72 79 2d 65 6e 74 72 79 | 2d 74 69 6d 65 5d 20 33 |ry-entry|-time] 3|
|00004900| 20 22 5c 0a 52 65 74 75 | 72 6e 73 20 74 20 69 66 | "\.Retu|rns t if|
|00004910| 20 45 31 20 69 73 20 65 | 61 72 6c 69 65 72 20 74 | E1 is e|arlier t|
|00004920| 68 61 6e 20 45 32 2e 22 | 5d 29 0a 28 64 65 66 61 |han E2."|]).(defa|
|00004930| 6c 69 61 73 20 27 64 69 | 61 72 79 2d 65 6e 74 72 |lias 'di|ary-entr|
|00004940| 79 2d 74 69 6d 65 20 23 | 5b 28 73 29 20 22 c0 c1 |y-time #|[(s) "..|
|00004950| 5c 6e 5c 22 83 1b 00 c3 | 5c 6e c4 94 c4 95 4f 21 |\n\"....|\n....O!|
|00004960| c5 5f c3 5c 6e c6 94 c6 | 95 4f 21 5c 5c 87 c0 c7 |._.\n...|.O!\\...|
|00004970| 5c 6e 5c 22 83 40 00 c3 | 5c 6e c4 94 c4 95 4f 21 |\n\".@..|\n....O!|
|00004980| c8 a6 c5 5f 5c 6e c6 94 | c6 95 4f c9 98 83 3d 00 |..._\n..|..O...=.|
|00004990| ca 82 3e 00 cb 5c 5c 87 | c0 cc 5c 6e 5c 22 83 6e |..>..\\.|..\n\".n|
|000049a0| 00 c3 5c 6e c4 94 c4 95 | 4f 21 c8 a6 c5 5f c3 5c |..\n....|O!..._.\|
|000049b0| 6e c6 94 c6 95 4f 21 5c | 6e cd 94 cd 95 4f c9 98 |n....O!\|n....O..|
|000049c0| 83 6a 00 ca 82 6b 00 cb | 5c 5c 5c 5c 87 ce 87 22 |.j...k..|\\\\..."|
|000049d0| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | [string|-match "|
|000049e0| 5e 20 2a 5c 5c 28 5b 30 | 2d 39 5d 3f 5b 30 2d 39 |^ *\\([0|-9]?[0-9|
|000049f0| 5d 5c 5c 29 3a 3f 5c 5c | 28 5b 30 2d 39 5d 5b 30 |]\\):?\\|([0-9][0|
|00004a00| 2d 39 5d 5c 5c 29 5c 5c | 28 5c 5c 3e 5c 5c 7c 5b |-9]\\)\\|(\\>\\|[|
|00004a10| 5e 61 70 5d 5c 5c 29 22 | 20 73 20 73 74 72 69 6e |^ap]\\)"| s strin|
|00004a20| 67 2d 74 6f 2d 69 6e 74 | 20 31 20 31 30 30 20 32 |g-to-int| 1 100 2|
|00004a30| 20 22 5e 20 2a 5c 5c 28 | 5b 30 2d 39 5d 3f 5b 30 | "^ *\\(|[0-9]?[0|
|00004a40| 2d 39 5d 5c 5c 29 5c 5c | 28 5b 61 70 5d 5c 5c 29 |-9]\\)\\|([ap]\\)|
|00004a50| 6d 5c 5c 3e 22 20 31 32 | 20 22 61 22 20 30 20 31 |m\\>" 12| "a" 0 1|
|00004a60| 32 30 30 20 22 5e 20 2a | 5c 5c 28 5b 30 2d 39 5d |200 "^ *|\\([0-9]|
|00004a70| 3f 5b 30 2d 39 5d 5c 5c | 29 3a 5c 5c 28 5b 30 2d |?[0-9]\\|):\\([0-|
|00004a80| 39 5d 5b 30 2d 39 5d 5c | 5c 29 5c 5c 28 5b 61 70 |9][0-9]\|\)\\([ap|
|00004a90| 5d 5c 5c 29 6d 5c 5c 3e | 22 20 33 20 2d 39 39 39 |]\\)m\\>|" 3 -999|
|00004aa0| 39 5d 20 35 20 22 5c 0a | 54 69 6d 65 20 61 74 20 |9] 5 "\.|Time at |
|00004ab0| 74 68 65 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 |the begi|nning of|
|00004ac0| 20 74 68 65 20 73 74 72 | 69 6e 67 20 53 20 69 6e | the str|ing S in|
|00004ad0| 20 61 20 6d 69 6c 69 74 | 61 72 79 2d 73 74 79 6c | a milit|ary-styl|
|00004ae0| 65 20 69 6e 74 65 67 65 | 72 2e 0a 46 6f 72 20 65 |e intege|r..For e|
|00004af0| 78 61 6d 70 6c 65 2c 20 | 72 65 74 75 72 6e 73 20 |xample, |returns |
|00004b00| 31 33 32 35 20 66 6f 72 | 20 31 3a 32 35 70 6d 2e |1325 for| 1:25pm.|
|00004b10| 20 20 52 65 74 75 72 6e | 73 20 2d 39 39 39 39 20 |  Return|s -9999 |
|00004b20| 69 66 20 6e 6f 20 74 69 | 6d 65 20 69 73 20 72 65 |if no ti|me is re|
|00004b30| 63 6f 67 6e 69 7a 65 64 | 2e 0a 54 68 65 20 72 65 |cognized|..The re|
|00004b40| 63 6f 67 6e 69 7a 65 64 | 20 66 6f 72 6d 73 20 61 |cognized| forms a|
|00004b50| 72 65 20 58 58 58 58 20 | 6f 72 20 58 3a 58 58 20 |re XXXX |or X:XX |
|00004b60| 6f 72 20 58 58 3a 58 58 | 20 28 6d 69 6c 69 74 61 |or XX:XX| (milita|
|00004b70| 72 79 20 74 69 6d 65 29 | 2c 20 58 58 61 6d 20 6f |ry time)|, XXam o|
|00004b80| 72 20 58 58 70 6d 2c 0a | 61 6e 64 20 58 58 3a 58 |r XXpm,.|and XX:X|
|00004b90| 58 61 6d 20 6f 72 20 58 | 58 3a 58 58 70 6d 2e 22 |Xam or X|X:XXpm."|
|00004ba0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6c 69 |]).(defa|lias 'li|
|00004bb0| 73 74 2d 68 65 62 72 65 | 77 2d 64 69 61 72 79 2d |st-hebre|w-diary-|
|00004bc0| 65 6e 74 72 69 65 73 20 | 23 5b 6e 69 6c 20 22 c0 |entries |#[nil ".|
|00004bd0| 09 57 83 39 02 c2 c3 20 | 5c 66 c5 0e 06 21 1e 07 |.W.9... |\f...!..|
|00004be0| 1e 08 1e 09 1e 5c 6e c0 | 1e 0b 09 0e 0b 54 89 16 |.....\n.|.....T..|
|00004bf0| 0b 59 83 30 02 0e 5c 66 | 1e 0d ce 0e 08 41 41 40 |.Y.0..\f|.....AA@|
|00004c00| 53 1e 0f 0e 08 40 1e 10 | 0e 08 41 40 1e 11 0e 08 |S....@..|..A@....|
|00004c10| 41 41 40 1e 12 0e 11 0e | 10 53 d3 5f 5c 5c 1e 14 |AA@.....|.S._\\..|
|00004c20| 0e 10 d5 56 83 81 00 0e | 14 0e 10 d6 5f d7 5c 5c |...V....|...._.\\|
|00004c30| d8 a5 5a 16 14 0e 12 d6 | a6 c0 55 83 81 00 0e 12 |..Z.....|..U.....|
|00004c40| d9 a6 c0 55 83 7c 00 0e | 12 da a6 c0 55 83 81 00 |...U.|..|....U...|
|00004c50| 0e 14 54 16 14 0e 14 2c | 0e 0f db 5f 0e 0f d6 a5 |..T....,|..._....|
|00004c60| 0e 0f d9 a5 5b 0e 0f da | a5 5c 5c 5c 5c 5c 5c 5c |....[...|.\\\\\\\|
|00004c70| 5c 29 21 89 1e 1c 40 1e | 10 0e 1c 41 40 1e 11 0e |\)!...@.|...A@...|
|00004c80| 1c 41 41 40 1e 12 0e 0d | 83 b4 01 0e 0d 40 40 dd |.AA@....|.....@@.|
|00004c90| 9a 83 c3 00 0e 0d 40 41 | 82 c6 00 0e 0d 40 1e 1e |......@A|.....@..|
|00004ca0| 0e 0d 40 40 dd 9a 1e 1d | df 0e 08 21 e0 df 0e 08 |..@@....|...!....|
|00004cb0| 21 c0 e1 4f e2 52 1e 23 | 0e 24 1e 25 e6 e7 0e 10 |!..O.R.#|.$.%....|
|00004cc0| 21 50 1e 28 e9 ea 0e 10 | 21 50 1e 10 e9 ea 0e 11 |!P.(....|!P......|
|00004cd0| 21 50 1e 11 e9 ea 0e 12 | 21 0e 2b 83 11 01 e0 ea |!P......|!.+.....|
|00004ce0| 0e 12 d9 a6 21 50 82 12 | 01 ec 51 1e 12 ed 0e 07 |....!P..|..Q.....|
|00004cf0| ee c5 0e 2f 21 f0 f1 f2 | 0e 1e f3 23 f4 b0 07 1e |.../!...|...#....|
|00004d00| 35 f6 1e 37 65 62 88 f8 | 0e 35 c2 f6 23 83 a9 01 |5..7eb..|.5..#...|
|00004d10| 0e 1d 83 43 01 f9 fa c2 | f6 23 88 fb 68 fc 5c 22 |...C....|.#..h.\"|
|00004d20| 84 51 01 fb 68 d8 5c 22 | 83 60 01 fd fe 21 84 60 |.Q..h.\"|.`...!.`|
|00004d30| 01 ff 81 40 00 21 88 82 | 2f 01 60 c2 1e 41 1e 42 |...@.!..|/.`..A.B|
|00004d40| f9 81 43 00 21 88 60 16 | 41 f8 81 44 00 c2 f6 d5 |..C.!.`.|A..D....|
|00004d50| 24 88 fd fe 21 83 89 01 | f8 81 44 00 c2 f6 23 88 |$...!...|..D...#.|
|00004d60| 82 78 01 ff 81 40 00 21 | 88 81 45 00 0e 41 60 fc |.x...@.!|..E..A`.|
|00004d70| d8 f6 25 88 81 46 00 0e | 08 0e 42 60 7b 5c 22 88 |..%..F..|..B`{\".|
|00004d80| 2a 82 2f 01 2e 5c 6e 0e | 0d 41 89 16 0d 84 b3 00 |*./..\n.|.A......|
|00004d90| 2d 81 47 00 0e 08 41 41 | 40 53 1e 0f 0e 08 40 1e |-.G...AA|@S....@.|
|00004da0| 10 0e 08 41 40 1e 11 0e | 08 41 41 40 1e 12 0e 11 |...A@...|.AA@....|
|00004db0| 0e 10 53 d3 5f 5c 5c 1e | 14 0e 10 d5 56 83 10 02 |..S._\\.|....V...|
|00004dc0| 0e 14 0e 10 d6 5f d7 5c | 5c d8 a5 5a 16 14 0e 12 |....._.\|\..Z....|
|00004dd0| d6 a6 c0 55 83 10 02 0e | 12 d9 a6 c0 55 83 0b 02 |...U....|....U...|
|00004de0| 0e 12 da a6 c0 55 83 10 | 02 0e 14 54 16 14 0e 14 |.....U..|...T....|
|00004df0| 2c 0e 0f db 5f 0e 0f d6 | a5 0e 0f d9 a5 5b 0e 0f |,..._...|.....[..|
|00004e00| da a5 5c 5c 5c 5c 5c 5c | 5c 5c 29 54 21 16 08 82 |..\\\\\\|\\)T!...|
|00004e10| 19 00 29 81 48 00 0e 09 | 21 2c 87 65 62 87 22 20 |..).H...|!,.eb." |
|00004e20| 5b 30 20 6e 75 6d 62 65 | 72 20 6e 69 6c 20 62 75 |[0 numbe|r nil bu|
|00004e30| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00004e40| 6f 72 69 67 69 6e 61 6c | 2d 64 61 74 65 20 72 65 |original|-date re|
|00004e50| 67 65 78 70 2d 71 75 6f | 74 65 20 64 69 61 72 79 |gexp-quo|te diary|
|00004e60| 2d 6e 6f 6e 6d 61 72 6b | 69 6e 67 2d 73 79 6d 62 |-nonmark|ing-symb|
|00004e70| 6f 6c 20 6d 61 72 6b 20 | 67 64 61 74 65 20 64 69 |ol mark |gdate di|
|00004e80| 61 72 79 2d 6d 6f 64 69 | 66 69 65 64 20 62 75 66 |ary-modi|fied buf|
|00004e90| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 69 20 |fer-read|-only i |
|00004ea0| 64 69 61 72 79 2d 64 61 | 74 65 2d 66 6f 72 6d 73 |diary-da|te-forms|
|00004eb0| 20 64 20 63 61 6c 65 6e | 64 61 72 2d 68 65 62 72 | d calen|dar-hebr|
|00004ec0| 65 77 2d 66 72 6f 6d 2d | 61 62 73 6f 6c 75 74 65 |ew-from-|absolute|
|00004ed0| 20 70 72 69 6f 72 2d 79 | 65 61 72 73 20 6d 6f 6e | prior-y|ears mon|
|00004ee0| 74 68 20 64 61 79 20 79 | 65 61 72 20 33 31 20 64 |th day y|ear 31 d|
|00004ef0| 61 79 2d 6f 66 2d 79 65 | 61 72 20 32 20 34 20 32 |ay-of-ye|ar 2 4 2|
|00004f00| 33 20 31 30 20 31 30 30 | 20 34 30 30 20 33 36 35 |3 10 100| 400 365|
|00004f10| 20 68 64 61 74 65 20 62 | 61 63 6b 75 70 20 64 61 | hdate b|ackup da|
|00004f20| 74 65 2d 66 6f 72 6d 20 | 63 61 6c 65 6e 64 61 72 |te-form |calendar|
|00004f30| 2d 64 61 79 2d 6e 61 6d | 65 20 22 5c 5c 7c 22 20 |-day-nam|e "\\|" |
|00004f40| 33 20 22 2e 3f 22 20 64 | 61 79 6e 61 6d 65 20 63 |3 ".?" d|ayname c|
|00004f50| 61 6c 65 6e 64 61 72 2d | 68 65 62 72 65 77 2d 6d |alendar-|hebrew-m|
|00004f60| 6f 6e 74 68 2d 6e 61 6d | 65 2d 61 72 72 61 79 2d |onth-nam|e-array-|
|00004f70| 6c 65 61 70 2d 79 65 61 | 72 20 63 61 6c 65 6e 64 |leap-yea|r calend|
|00004f80| 61 72 2d 6d 6f 6e 74 68 | 2d 6e 61 6d 65 2d 61 72 |ar-month|-name-ar|
|00004f90| 72 61 79 20 22 5c 5c 2a | 5c 5c 7c 22 20 63 61 6c |ray "\\*|\\|" cal|
|00004fa0| 65 6e 64 61 72 2d 6d 6f | 6e 74 68 2d 6e 61 6d 65 |endar-mo|nth-name|
|00004fb0| 20 6d 6f 6e 74 68 6e 61 | 6d 65 20 22 5c 5c 2a 5c | monthna|me "\\*\|
|00004fc0| 5c 7c 30 2a 22 20 69 6e | 74 2d 74 6f 2d 73 74 72 |\|0*" in|t-to-str|
|00004fd0| 69 6e 67 20 61 62 62 72 | 65 76 69 61 74 65 64 2d |ing abbr|eviated-|
|00004fe0| 63 61 6c 65 6e 64 61 72 | 2d 79 65 61 72 20 22 22 |calendar|-year ""|
|00004ff0| 20 22 5c 5c 28 5c 5c 60 | 5c 5c 7c 0d 5c 5c 7c 5c | "\\(\\`|\\|.\\|\|
|00005000| 6e 5c 5c 29 22 20 22 3f | 22 20 68 65 62 72 65 77 |n\\)" "?|" hebrew|
|00005010| 2d 64 69 61 72 79 2d 65 | 6e 74 72 79 2d 73 79 6d |-diary-e|ntry-sym|
|00005020| 62 6f 6c 20 22 5c 5c 28 | 22 20 6d 61 70 63 6f 6e |bol "\\(|" mapcon|
|00005030| 63 61 74 20 65 76 61 6c | 20 22 5c 5c 29 5c 5c 28 |cat eval| "\\)\\(|
|00005040| 22 20 22 5c 5c 29 22 20 | 72 65 67 65 78 70 20 74 |" "\\)" |regexp t|
|00005050| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|00005060| 68 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |h re-sea|rch-forw|
|00005070| 61 72 64 20 72 65 2d 73 | 65 61 72 63 68 2d 62 61 |ard re-s|earch-ba|
|00005080| 63 6b 77 61 72 64 20 22 | 5c 5c 3c 22 20 63 68 61 |ckward "|\\<" cha|
|00005090| 72 2d 65 71 75 61 6c 20 | 31 33 20 6c 6f 6f 6b 69 |r-equal |13 looki|
|000050a0| 6e 67 2d 61 74 20 22 20 | 5c 5c 7c 09 22 20 62 61 |ng-at " |\\|." ba|
|000050b0| 63 6b 77 61 72 64 2d 63 | 68 61 72 20 31 20 64 61 |ckward-c|har 1 da|
|000050c0| 74 65 2d 73 74 61 72 74 | 20 65 6e 74 72 79 2d 73 |te-start| entry-s|
|000050d0| 74 61 72 74 20 22 0d 5c | 5c 7c 5c 6e 5c 5c 7c 5c |tart ".\|\|\n\\|\|
|000050e0| 5c 60 22 20 22 0d 5c 5c | 7c 5c 6e 22 20 73 75 62 |\`" ".\\||\n" sub|
|000050f0| 73 74 2d 63 68 61 72 2d | 69 6e 2d 72 65 67 69 6f |st-char-|in-regio|
|00005100| 6e 20 61 64 64 2d 74 6f | 2d 64 69 61 72 79 2d 6c |n add-to|-diary-l|
|00005110| 69 73 74 20 63 61 6c 65 | 6e 64 61 72 2d 67 72 65 |ist cale|ndar-gre|
|00005120| 67 6f 72 69 61 6e 2d 66 | 72 6f 6d 2d 61 62 73 6f |gorian-f|rom-abso|
|00005130| 6c 75 74 65 20 73 65 74 | 2d 62 75 66 66 65 72 2d |lute set|-buffer-|
|00005140| 6d 6f 64 69 66 69 65 64 | 2d 70 5d 20 31 30 20 22 |modified|-p] 10 "|
|00005150| 5c 0a 41 64 64 20 61 6e | 79 20 48 65 62 72 65 77 |\.Add an|y Hebrew|
|00005160| 20 64 61 74 65 20 65 6e | 74 72 69 65 73 20 66 72 | date en|tries fr|
|00005170| 6f 6d 20 74 68 65 20 64 | 69 61 72 79 20 66 69 6c |om the d|iary fil|
|00005180| 65 20 74 6f 20 60 64 69 | 61 72 79 2d 65 6e 74 72 |e to `di|ary-entr|
|00005190| 69 65 73 2d 6c 69 73 74 | 27 2e 0a 48 65 62 72 65 |ies-list|'..Hebre|
|000051a0| 77 20 64 61 74 65 20 64 | 69 61 72 79 20 65 6e 74 |w date d|iary ent|
|000051b0| 72 69 65 73 20 6d 75 73 | 74 20 62 65 20 70 72 65 |ries mus|t be pre|
|000051c0| 66 61 63 65 64 20 62 79 | 20 60 68 65 62 72 65 77 |faced by| `hebrew|
|000051d0| 2d 64 69 61 72 79 2d 65 | 6e 74 72 79 2d 73 79 6d |-diary-e|ntry-sym|
|000051e0| 62 6f 6c 27 0a 28 6e 6f | 72 6d 61 6c 6c 79 20 61 |bol'.(no|rmally a|
|000051f0| 6e 20 60 48 27 29 2e 20 | 20 54 68 65 20 73 61 6d |n `H'). | The sam|
|00005200| 65 20 64 69 61 72 79 20 | 64 61 74 65 20 66 6f 72 |e diary |date for|
|00005210| 6d 73 20 67 6f 76 65 72 | 6e 20 74 68 65 20 73 74 |ms gover|n the st|
|00005220| 79 6c 65 20 6f 66 20 74 | 68 65 20 48 65 62 72 65 |yle of t|he Hebre|
|00005230| 77 0a 63 61 6c 65 6e 64 | 61 72 20 65 6e 74 72 69 |w.calend|ar entri|
|00005240| 65 73 2c 20 65 78 63 65 | 70 74 20 74 68 61 74 20 |es, exce|pt that |
|00005250| 74 68 65 20 48 65 62 72 | 65 77 20 6d 6f 6e 74 68 |the Hebr|ew month|
|00005260| 20 6e 61 6d 65 73 20 6d | 75 73 74 20 62 65 20 73 | names m|ust be s|
|00005270| 70 65 6c 6c 65 64 20 69 | 6e 20 66 75 6c 6c 2e 0a |pelled i|n full..|
|00005280| 54 68 65 20 48 65 62 72 | 65 77 20 6d 6f 6e 74 68 |The Hebr|ew month|
|00005290| 73 20 61 72 65 20 6e 75 | 6d 62 65 72 65 64 20 66 |s are nu|mbered f|
|000052a0| 72 6f 6d 20 31 20 74 6f | 20 31 33 20 77 69 74 68 |rom 1 to| 13 with|
|000052b0| 20 4e 69 73 61 6e 20 62 | 65 69 6e 67 20 31 2c 20 | Nisan b|eing 1, |
|000052c0| 31 32 20 62 65 69 6e 67 | 0a 41 64 61 72 20 49 20 |12 being|.Adar I |
|000052d0| 61 6e 64 20 31 33 20 62 | 65 69 6e 67 20 41 64 61 |and 13 b|eing Ada|
|000052e0| 72 20 49 49 3b 20 79 6f | 75 20 6d 75 73 74 20 75 |r II; yo|u must u|
|000052f0| 73 65 20 60 41 64 61 72 | 20 49 27 20 69 66 20 79 |se `Adar| I' if y|
|00005300| 6f 75 20 77 61 6e 74 20 | 41 64 61 72 20 6f 66 20 |ou want |Adar of |
|00005310| 61 0a 63 6f 6d 6d 6f 6e | 20 48 65 62 72 65 77 20 |a.common| Hebrew |
|00005320| 79 65 61 72 2e 20 20 49 | 66 20 61 20 48 65 62 72 |year.  I|f a Hebr|
|00005330| 65 77 20 64 61 74 65 20 | 64 69 61 72 79 20 65 6e |ew date |diary en|
|00005340| 74 72 79 20 62 65 67 69 | 6e 73 20 77 69 74 68 20 |try begi|ns with |
|00005350| 61 0a 60 64 69 61 72 79 | 2d 6e 6f 6e 6d 61 72 6b |a.`diary|-nonmark|
|00005360| 69 6e 67 2d 73 79 6d 62 | 6f 6c 27 2c 20 74 68 65 |ing-symb|ol', the|
|00005370| 20 65 6e 74 72 79 20 77 | 69 6c 6c 20 61 70 70 65 | entry w|ill appe|
|00005380| 61 72 20 69 6e 20 74 68 | 65 20 64 69 61 72 79 20 |ar in th|e diary |
|00005390| 6c 69 73 74 69 6e 67 2c | 20 62 75 74 20 77 69 6c |listing,| but wil|
|000053a0| 6c 0a 6e 6f 74 20 62 65 | 20 6d 61 72 6b 65 64 20 |l.not be| marked |
|000053b0| 69 6e 20 74 68 65 20 63 | 61 6c 65 6e 64 61 72 2e |in the c|alendar.|
|000053c0| 20 20 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |  This f|unction |
|000053d0| 69 73 20 70 72 6f 76 69 | 64 65 64 20 66 6f 72 20 |is provi|ded for |
|000053e0| 75 73 65 20 77 69 74 68 | 20 74 68 65 0a 60 6e 6f |use with| the.`no|
|000053f0| 6e 67 72 65 67 6f 72 69 | 61 6e 2d 64 69 61 72 79 |ngregori|an-diary|
|00005400| 2d 6c 69 73 74 69 6e 67 | 2d 68 6f 6f 6b 27 2e 22 |-listing|-hook'."|
|00005410| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 61 |]).(defa|lias 'ma|
|00005420| 72 6b 2d 68 65 62 72 65 | 77 2d 64 69 61 72 79 2d |rk-hebre|w-diary-|
|00005430| 65 6e 74 72 69 65 73 20 | 23 5b 6e 69 6c 20 22 08 |entries |#[nil ".|
|00005440| 89 19 85 36 02 09 40 40 | c2 9a 83 14 00 09 40 41 |...6..@@|......@A|
|00005450| 82 16 00 09 40 1b c4 0d | 21 1e 06 c4 0e 07 c8 5c |....@...|!......\|
|00005460| 22 c9 50 1e 5c 6e cb 1e | 5c 66 cb 1e 0d cb 1e 0e |".P.\n..|\f......|
|00005470| 0b 47 89 1e 0f c6 0b 3e | 47 5a 1e 10 0e 0f 0e 10 |.G.....>|GZ......|
|00005480| 55 3f 85 47 00 0e 10 d1 | 5c 5c 1e 10 0e 0f ca 0b |U?.G....|\\......|
|00005490| 3e 47 5a 1e 12 0e 0f 0e | 12 55 3f 85 5f 00 0e 12 |>GZ.....|.U?._...|
|000054a0| d1 5c 5c 1e 12 0e 0f cd | 0b 3e 47 5a 1e 13 0e 0f |.\\.....|.>GZ....|
|000054b0| 0e 13 55 3f 85 77 00 0e | 13 d1 5c 5c 1e 13 0e 0f |..U?.w..|..\\....|
|000054c0| cc 0b 3e 47 5a 1e 14 0e | 0f 0e 14 55 3f 85 8f 00 |..>GZ...|...U?...|
|000054d0| 0e 14 d1 5c 5c 1e 14 0e | 0f ce 0b 3e 47 5a 1e 15 |...\\...|...>GZ..|
|000054e0| 0e 0f 0e 15 55 3f 85 a7 | 00 0e 15 d1 5c 5c 1e 15 |....U?..|....\\..|
|000054f0| d6 d7 0e 18 21 d9 da db | 0b dc 23 dd b0 05 1e 1e |....!...|..#.....|
|00005500| c8 1e 1f 65 62 88 e0 0e | 1e e1 c8 23 83 2c 02 0e |...eb...|...#.,..|
|00005510| 10 85 d4 00 0e 10 94 0e | 10 95 7b 1e 5c 22 0e 12 |........|..{.\"..|
|00005520| 85 e2 00 0e 12 94 0e 12 | 95 7b 1e 23 e4 0e 14 83 |........|.{.#....|
|00005530| f4 00 0e 14 94 0e 14 95 | 7b 82 f5 00 e5 21 1e 26 |........|{....!.&|
|00005540| e4 0e 13 83 08 01 0e 13 | 94 0e 13 95 7b 82 09 01 |........|....{...|
|00005550| e5 21 1e 27 0e 15 85 18 | 01 0e 15 94 0e 15 95 7b |.!.'....|.......{|
|00005560| 89 1e 28 84 5c 22 01 e9 | 82 df 01 0e 28 47 d1 55 |..(.\"..|....(G.U|
|00005570| 83 db 01 0e 2a 83 db 01 | eb ec 20 41 41 40 53 1e |....*...|.. AA@S.|
|00005580| 2d ec 20 40 1e 5c 66 ec | 20 41 40 1e 0d ec 20 41 |-. @.\f.| A@... A|
|00005590| 41 40 1e 0e 0e 0d 0e 5c | 66 53 ee 5f 5c 5c 1e 2f |A@.....\|fS._\\./|
|000055a0| 0e 5c 66 d1 56 83 88 01 | 0e 2f 0e 5c 66 f0 5f f1 |.\f.V...|./.\f._.|
|000055b0| 5c 5c f2 a5 5a 16 2f 0e | 0e f0 a6 e9 55 83 88 01 |\\..Z./.|....U...|
|000055c0| 0e 0e f3 a6 e9 55 83 83 | 01 0e 0e f4 a6 e9 55 83 |.....U..|......U.|
|000055d0| 88 01 0e 2f 54 16 2f 0e | 2f 2c 0e 2d f5 5f 0e 2d |.../T./.|/,.-._.-|
|000055e0| f0 a5 0e 2d f3 a5 5b 0e | 2d f4 a5 5c 5c 5c 5c 5c |...-..[.|-..\\\\\|
|000055f0| 5c 5c 5c 29 21 41 41 40 | 1e 36 e4 0e 28 21 0e 36 |\\\)!AA@|.6..(!.6|
|00005600| f3 a5 f3 5f 5c 5c 89 1e | 37 0e 36 5a f8 56 83 c4 |..._\\..|7.6Z.V..|
|00005610| 01 0e 37 f3 5a 82 d7 01 | 0e 36 0e 37 5a f8 56 83 |..7.Z...|.6.7Z.V.|
|00005620| d5 01 0e 37 f3 5c 5c 82 | d7 01 0e 37 2a 82 df 01 |...7.\\.|...7*...|
|00005630| e4 0e 28 21 1e 39 0e 5c | 22 83 fb 01 fa fb fc 0e |..(!.9.\|".......|
|00005640| 5c 22 e9 fd 4f 21 fe 0d | e9 ff 23 5c 22 41 21 88 |\"..O!..|..#\"A!.|
|00005650| 82 27 02 0e 23 83 1c 02 | 0e 23 81 40 00 98 83 0f |.'..#...|.#.@....|
|00005660| 02 e9 16 26 82 1c 02 fb | fc 0e 23 21 fe 0e 07 21 |...&....|..#!...!|
|00005670| 5c 22 41 16 26 81 41 00 | 0e 26 0e 27 0e 39 23 88 |\"A.&.A.|.&.'.9#.|
|00005680| 2e 06 82 bf 00 2e 13 09 | 41 89 11 84 06 00 e1 29 |........|A......)|
|00005690| 87 22 20 5b 64 69 61 72 | 79 2d 64 61 74 65 2d 66 |." [diar|y-date-f|
|000056a0| 6f 72 6d 73 20 64 20 62 | 61 63 6b 75 70 20 64 61 |orms d b|ackup da|
|000056b0| 74 65 2d 66 6f 72 6d 20 | 64 69 61 72 79 2d 6e 61 |te-form |diary-na|
|000056c0| 6d 65 2d 70 61 74 74 65 | 72 6e 20 63 61 6c 65 6e |me-patte|rn calen|
|000056d0| 64 61 72 2d 64 61 79 2d | 6e 61 6d 65 2d 61 72 72 |dar-day-|name-arr|
|000056e0| 61 79 20 64 61 79 6e 61 | 6d 65 20 63 61 6c 65 6e |ay dayna|me calen|
|000056f0| 64 61 72 2d 68 65 62 72 | 65 77 2d 6d 6f 6e 74 68 |dar-hebr|ew-month|
|00005700| 2d 6e 61 6d 65 2d 61 72 | 72 61 79 2d 6c 65 61 70 |-name-ar|ray-leap|
|00005710| 2d 79 65 61 72 20 74 20 | 22 5c 5c 7c 5c 5c 2a 22 |-year t |"\\|\\*"|
|00005720| 20 6d 6f 6e 74 68 6e 61 | 6d 65 20 22 5b 30 2d 39 | monthna|me "[0-9|
|00005730| 5d 2b 5c 5c 7c 5c 5c 2a | 22 20 6d 6f 6e 74 68 20 |]+\\|\\*|" month |
|00005740| 64 61 79 20 79 65 61 72 | 20 6c 20 64 2d 6e 61 6d |day year| l d-nam|
|00005750| 65 2d 70 6f 73 20 32 20 | 6d 2d 6e 61 6d 65 2d 70 |e-pos 2 |m-name-p|
|00005760| 6f 73 20 64 2d 70 6f 73 | 20 6d 2d 70 6f 73 20 79 |os d-pos| m-pos y|
|00005770| 2d 70 6f 73 20 22 5c 5c | 28 5c 5c 60 5c 5c 7c 0d |-pos "\\|(\\`\\|.|
|00005780| 5c 5c 7c 5c 6e 5c 5c 29 | 22 20 72 65 67 65 78 70 |\\|\n\\)|" regexp|
|00005790| 2d 71 75 6f 74 65 20 68 | 65 62 72 65 77 2d 64 69 |-quote h|ebrew-di|
|000057a0| 61 72 79 2d 65 6e 74 72 | 79 2d 73 79 6d 62 6f 6c |ary-entr|y-symbol|
|000057b0| 20 22 5c 5c 28 22 20 6d | 61 70 63 6f 6e 63 61 74 | "\\(" m|apconcat|
|000057c0| 20 65 76 61 6c 20 22 5c | 5c 29 5c 5c 28 22 20 22 | eval "\|\)\\(" "|
|000057d0| 5c 5c 29 22 20 72 65 67 | 65 78 70 20 63 61 73 65 |\\)" reg|exp case|
|000057e0| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 72 65 2d |-fold-se|arch re-|
|000057f0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 6e |search-f|orward n|
|00005800| 69 6c 20 64 64 2d 6e 61 | 6d 65 20 6d 6d 2d 6e 61 |il dd-na|me mm-na|
|00005810| 6d 65 20 73 74 72 69 6e | 67 2d 74 6f 2d 69 6e 74 |me strin|g-to-int|
|00005820| 20 22 22 20 6d 6d 20 64 | 64 20 79 2d 73 74 72 20 | "" mm d|d y-str |
|00005830| 30 20 61 62 62 72 65 76 | 69 61 74 65 64 2d 63 61 |0 abbrev|iated-ca|
|00005840| 6c 65 6e 64 61 72 2d 79 | 65 61 72 20 63 61 6c 65 |lendar-y|ear cale|
|00005850| 6e 64 61 72 2d 68 65 62 | 72 65 77 2d 66 72 6f 6d |ndar-heb|rew-from|
|00005860| 2d 61 62 73 6f 6c 75 74 | 65 20 63 61 6c 65 6e 64 |-absolut|e calend|
|00005870| 61 72 2d 63 75 72 72 65 | 6e 74 2d 64 61 74 65 20 |ar-curre|nt-date |
|00005880| 70 72 69 6f 72 2d 79 65 | 61 72 73 20 33 31 20 64 |prior-ye|ars 31 d|
|00005890| 61 79 2d 6f 66 2d 79 65 | 61 72 20 34 20 32 33 20 |ay-of-ye|ar 4 23 |
|000058a0| 31 30 20 31 30 30 20 34 | 30 30 20 33 36 35 20 63 |10 100 4|00 365 c|
|000058b0| 75 72 72 65 6e 74 2d 79 | 20 79 20 35 30 20 79 79 |urrent-y| y 50 yy|
|000058c0| 20 6d 61 72 6b 2d 63 61 | 6c 65 6e 64 61 72 2d 64 | mark-ca|lendar-d|
|000058d0| 61 79 73 2d 6e 61 6d 65 | 64 20 61 73 73 6f 63 20 |ays-name|d assoc |
|000058e0| 63 61 70 69 74 61 6c 69 | 7a 65 20 33 20 63 61 6c |capitali|ze 3 cal|
|000058f0| 65 6e 64 61 72 2d 6d 61 | 6b 65 2d 61 6c 69 73 74 |endar-ma|ke-alist|
|00005900| 20 28 6c 61 6d 62 64 61 | 20 28 78 29 20 28 73 75 | (lambda| (x) (su|
|00005910| 62 73 74 72 69 6e 67 20 | 78 20 30 20 33 29 29 20 |bstring |x 0 3)) |
|00005920| 22 2a 22 20 6d 61 72 6b | 2d 68 65 62 72 65 77 2d |"*" mark|-hebrew-|
|00005930| 63 61 6c 65 6e 64 61 72 | 2d 64 61 74 65 2d 70 61 |calendar|-date-pa|
|00005940| 74 74 65 72 6e 5d 20 38 | 20 22 5c 0a 4d 61 72 6b |ttern] 8| "\.Mark|
|00005950| 20 64 61 79 73 20 69 6e | 20 74 68 65 20 63 61 6c | days in| the cal|
|00005960| 65 6e 64 61 72 20 77 69 | 6e 64 6f 77 20 74 68 61 |endar wi|ndow tha|
|00005970| 74 20 68 61 76 65 20 48 | 65 62 72 65 77 20 64 61 |t have H|ebrew da|
|00005980| 74 65 20 64 69 61 72 79 | 20 65 6e 74 72 69 65 73 |te diary| entries|
|00005990| 2e 0a 45 61 63 68 20 65 | 6e 74 72 79 20 69 6e 20 |..Each e|ntry in |
|000059a0| 64 69 61 72 79 2d 66 69 | 6c 65 20 28 6f 72 20 69 |diary-fi|le (or i|
|000059b0| 6e 63 6c 75 64 65 64 20 | 66 69 6c 65 73 29 20 76 |ncluded |files) v|
|000059c0| 69 73 69 62 6c 65 20 69 | 6e 20 74 68 65 20 63 61 |isible i|n the ca|
|000059d0| 6c 65 6e 64 61 72 20 77 | 69 6e 64 6f 77 0a 69 73 |lendar w|indow.is|
|000059e0| 20 6d 61 72 6b 65 64 2e | 20 20 48 65 62 72 65 77 | marked.|  Hebrew|
|000059f0| 20 64 61 74 65 20 65 6e | 74 72 69 65 73 20 61 72 | date en|tries ar|
|00005a00| 65 20 70 72 65 66 61 63 | 65 64 20 62 79 20 61 20 |e prefac|ed by a |
|00005a10| 68 65 62 72 65 77 2d 64 | 69 61 72 79 2d 65 6e 74 |hebrew-d|iary-ent|
|00005a20| 72 79 2d 73 79 6d 62 6f | 6c 0a 28 6e 6f 72 6d 61 |ry-symbo|l.(norma|
|00005a30| 6c 6c 79 20 61 6e 20 60 | 48 27 29 2e 20 20 54 68 |lly an `|H').  Th|
|00005a40| 65 20 73 61 6d 65 20 64 | 69 61 72 79 2d 64 61 74 |e same d|iary-dat|
|00005a50| 65 2d 66 6f 72 6d 73 20 | 67 6f 76 65 72 6e 20 74 |e-forms |govern t|
|00005a60| 68 65 20 73 74 79 6c 65 | 20 6f 66 20 74 68 65 20 |he style| of the |
|00005a70| 48 65 62 72 65 77 0a 63 | 61 6c 65 6e 64 61 72 20 |Hebrew.c|alendar |
|00005a80| 65 6e 74 72 69 65 73 2c | 20 65 78 63 65 70 74 20 |entries,| except |
|00005a90| 74 68 61 74 20 74 68 65 | 20 48 65 62 72 65 77 20 |that the| Hebrew |
|00005aa0| 6d 6f 6e 74 68 20 6e 61 | 6d 65 73 20 6d 75 73 74 |month na|mes must|
|00005ab0| 20 62 65 20 73 70 65 6c | 6c 65 64 20 69 6e 20 66 | be spel|led in f|
|00005ac0| 75 6c 6c 2e 0a 54 68 65 | 20 48 65 62 72 65 77 20 |ull..The| Hebrew |
|00005ad0| 6d 6f 6e 74 68 73 20 61 | 72 65 20 6e 75 6d 62 65 |months a|re numbe|
|00005ae0| 72 65 64 20 66 72 6f 6d | 20 31 20 74 6f 20 31 33 |red from| 1 to 13|
|00005af0| 20 77 69 74 68 20 4e 69 | 73 61 6e 20 62 65 69 6e | with Ni|san bein|
|00005b00| 67 20 31 2c 20 31 32 20 | 62 65 69 6e 67 0a 41 64 |g 1, 12 |being.Ad|
|00005b10| 61 72 20 49 20 61 6e 64 | 20 31 33 20 62 65 69 6e |ar I and| 13 bein|
|00005b20| 67 20 41 64 61 72 20 49 | 49 3b 20 79 6f 75 20 6d |g Adar I|I; you m|
|00005b30| 75 73 74 20 75 73 65 20 | 60 41 64 61 72 20 49 27 |ust use |`Adar I'|
|00005b40| 20 69 66 20 79 6f 75 20 | 77 61 6e 74 20 41 64 61 | if you |want Ada|
|00005b50| 72 20 6f 66 20 61 0a 63 | 6f 6d 6d 6f 6e 20 48 65 |r of a.c|ommon He|
|00005b60| 62 72 65 77 20 79 65 61 | 72 2e 20 20 48 65 62 72 |brew yea|r.  Hebr|
|00005b70| 65 77 20 64 61 74 65 20 | 64 69 61 72 79 20 65 6e |ew date |diary en|
|00005b80| 74 72 69 65 73 20 74 68 | 61 74 20 62 65 67 69 6e |tries th|at begin|
|00005b90| 20 77 69 74 68 20 61 0a | 64 69 61 72 79 2d 6e 6f | with a.|diary-no|
|00005ba0| 6e 6d 61 72 6b 69 6e 67 | 20 73 79 6d 62 6f 6c 20 |nmarking| symbol |
|00005bb0| 77 69 6c 6c 20 6e 6f 74 | 20 62 65 20 6d 61 72 6b |will not| be mark|
|00005bc0| 65 64 20 69 6e 20 74 68 | 65 20 63 61 6c 65 6e 64 |ed in th|e calend|
|00005bd0| 61 72 2e 20 20 54 68 69 | 73 20 66 75 6e 63 74 69 |ar.  Thi|s functi|
|00005be0| 6f 6e 0a 69 73 20 70 72 | 6f 76 69 64 65 64 20 66 |on.is pr|ovided f|
|00005bf0| 6f 72 20 75 73 65 20 61 | 73 20 70 61 72 74 20 6f |or use a|s part o|
|00005c00| 66 20 74 68 65 20 6e 6f | 6e 67 72 65 67 6f 72 69 |f the no|ngregori|
|00005c10| 61 6e 2d 64 69 61 72 79 | 2d 6d 61 72 6b 69 6e 67 |an-diary|-marking|
|00005c20| 2d 68 6f 6f 6b 2e 22 5d | 29 0a 28 64 65 66 61 6c |-hook."]|).(defal|
|00005c30| 69 61 73 20 27 6d 61 72 | 6b 2d 68 65 62 72 65 77 |ias 'mar|k-hebrew|
|00005c40| 2d 63 61 6c 65 6e 64 61 | 72 2d 64 61 74 65 2d 70 |-calenda|r-date-p|
|00005c50| 61 74 74 65 72 6e 20 23 | 5b 28 6d 6f 6e 74 68 20 |attern #|[(month |
|00005c60| 64 61 79 20 79 65 61 72 | 29 20 22 8a 08 71 88 09 |day year|) "..q..|
|00005c70| c2 55 84 9a 02 0b c2 55 | 84 9a 02 5c 66 c2 55 84 |.U.....U|...\f.U.|
|00005c80| 2f 00 c5 c6 09 0b 5c 66 | 45 21 21 1e 07 c8 0e 07 |/.....\f|E!!.....|
|00005c90| 21 85 2b 00 c9 0e 07 21 | 29 82 c9 04 0e 5c 6e cb |!.+....!|)....\n.|
|00005ca0| 09 57 83 3d 00 09 cb 5a | 82 40 00 09 cc 5c 5c cd |.W.=...Z|.@...\\.|
|00005cb0| 09 57 83 4c 00 09 cd 5a | 82 4f 00 09 ce 5c 5c cf |.W.L...Z|.O...\\.|
|00005cc0| 09 57 83 5b 00 09 cf 5a | 82 5e 00 09 d0 5c 5c d1 |.W.[...Z|.^...\\.|
|00005cd0| 09 57 83 6a 00 09 d1 5a | 82 6d 00 09 d2 5c 5c d3 |.W.j...Z|.m...\\.|
|00005ce0| 09 57 83 79 00 09 d3 5a | 82 7c 00 09 d4 5c 5c af |.W.y...Z|.|...\\.|
|00005cf0| 05 3e 85 c9 04 0e 5c 6e | 0e 15 0e 5c 6e 0e 15 d6 |.>....\n|...\n...|
|00005d00| 1c 1e 17 1e 18 1e 19 1e | 1a 0e 19 db 5f 0e 1a dc |........|...._...|
|00005d10| 5c 5c 5c 5c 89 1e 1d db | a6 54 16 1a 0e 1d db a5 |\\\\....|.T......|
|00005d20| 16 19 29 0e 17 db 5f 0e | 18 5c 5c 89 1e 1d db a6 |..)..._.|.\\.....|
|00005d30| 54 16 18 0e 1d db a5 16 | 17 29 0e 1a cc 0e 19 45 |T.......|.).....E|
|00005d40| 41 41 40 53 1e 1e 0e 1a | cc 0e 19 45 40 19 0e 1a |AA@S....|...E@...|
|00005d50| cc 0e 19 45 41 40 1b 0e | 1a cc 0e 19 45 41 41 40 |...EA@..|....EAA@|
|00005d60| 1c 0b 09 53 df 5f 5c 5c | 1e 20 09 ce 56 83 20 01 |...S._\\|. ..V. .|
|00005d70| 0e 20 09 d2 5f e1 5c 5c | cd a5 5a 16 20 5c 66 d2 |. .._.\\|..Z. \f.|
|00005d80| a6 c2 55 83 20 01 5c 66 | e2 a6 c2 55 83 1b 01 5c |..U. .\f|...U...\|
|00005d90| 66 e3 a6 c2 55 83 20 01 | 0e 20 54 16 20 0e 20 2c |f...U. .|. T. . ,|
|00005da0| 0e 1e e4 5f 0e 1e d2 a5 | 0e 1e e2 a5 5b 0e 1e e3 |..._....|....[...|
|00005db0| a5 5c 5c 5c 5c 5c 5c 5c | 5c 29 1e 25 0e 18 89 ce |.\\\\\\\|\).%....|
|00005dc0| 55 83 62 01 0e 17 d2 a6 | c2 55 83 62 01 0e 17 e2 |U.b.....|.U.b....|
|00005dd0| a6 c2 55 83 5e 01 0e 17 | e3 a6 c2 55 83 62 01 e6 |..U.^...|...U.b..|
|00005de0| 82 67 01 e7 0e 18 53 48 | 0e 17 45 41 41 40 53 1e |.g....SH|..EAA@S.|
|00005df0| 1e 0e 18 89 ce 55 83 97 | 01 0e 17 d2 a6 c2 55 83 |.....U..|......U.|
|00005e00| 97 01 0e 17 e2 a6 c2 55 | 83 93 01 0e 17 e3 a6 c2 |.......U|........|
|00005e10| 55 83 97 01 e6 82 9c 01 | e7 0e 18 53 48 0e 17 45 |U.......|...SH..E|
|00005e20| 40 19 0e 18 89 ce 55 83 | c8 01 0e 17 d2 a6 c2 55 |@.....U.|.......U|
|00005e30| 83 c8 01 0e 17 e2 a6 c2 | 55 83 c4 01 0e 17 e3 a6 |........|U.......|
|00005e40| c2 55 83 c8 01 e6 82 cd | 01 e7 0e 18 53 48 0e 17 |.U......|....SH..|
|00005e50| 45 41 40 1b 0e 18 89 ce | 55 83 fa 01 0e 17 d2 a6 |EA@.....|U.......|
|00005e60| c2 55 83 fa 01 0e 17 e2 | a6 c2 55 83 f6 01 0e 17 |.U......|..U.....|
|00005e70| e3 a6 c2 55 83 fa 01 e6 | 82 ff 01 e7 0e 18 53 48 |...U....|......SH|
|00005e80| 0e 17 45 41 41 40 1c 0b | 09 53 df 5f 5c 5c 1e 20 |..EAA@..|.S._\\. |
|00005e90| 09 ce 56 83 3d 02 0e 20 | 09 d2 5f e1 5c 5c cd a5 |..V.=.. |.._.\\..|
|00005ea0| 5a 16 20 5c 66 d2 a6 c2 | 55 83 3d 02 5c 66 e2 a6 |Z. \f...|U.=.\f..|
|00005eb0| c2 55 83 38 02 5c 66 e3 | a6 c2 55 83 3d 02 0e 20 |.U.8.\f.|..U.=.. |
|00005ec0| 54 16 20 0e 20 2c 0e 1e | e4 5f 0e 1e d2 a5 0e 1e |T. . ,..|._......|
|00005ed0| e2 a5 5b 0e 1e e3 a5 5c | 5c 5c 5c 5c 5c 5c 5c 29 |..[....\|\\\\\\\)|
|00005ee0| 1e 28 e9 0e 25 21 1e 2a | e9 0e 28 21 1e 2b 0e 2a |.(..%!.*|..(!.+.*|
|00005ef0| 41 41 40 1e 2c 0e 2b 41 | 41 40 1e 2d ee 09 57 83 |AA@.,.+A|A@.-..W.|
|00005f00| 7d 02 0e 2d 82 7f 02 0e | 2c 14 c5 c6 09 0b 5c 66 |}..-....|,.....\f|
|00005f10| 45 21 21 1e 07 c8 0e 07 | 21 85 95 02 c9 0e 07 21 |E!!.....|!......!|
|00005f20| 2e 5c 66 82 c9 04 0e 5c | 6e 0e 15 d6 89 1e 2f 1e |.\f....\|n...../.|
|00005f30| 30 1e 31 1e 32 0e 31 db | 5f 0e 32 dc 5c 5c 5c 5c |0.1.2.1.|_.2.\\\\|
|00005f40| 89 1e 1d db a6 54 16 32 | 0e 1d db a5 16 31 29 0e |.....T.2|.....1).|
|00005f50| 32 cc 0e 31 45 41 41 40 | 53 1e 1e 0e 32 cc 0e 31 |2..1EAA@|S...2..1|
|00005f60| 45 40 19 0e 32 cc 0e 31 | 45 41 40 1b 0e 32 cc 0e |E@..2..1|EA@..2..|
|00005f70| 31 45 41 41 40 1c 0b 09 | 53 df 5f 5c 5c 1e 20 09 |1EAA@...|S._\\. .|
|00005f80| ce 56 83 1e 03 0e 20 09 | d2 5f e1 5c 5c cd a5 5a |.V.... .|._.\\..Z|
|00005f90| 16 20 5c 66 d2 a6 c2 55 | 83 1e 03 5c 66 e2 a6 c2 |. \f...U|...\f...|
|00005fa0| 55 83 19 03 5c 66 e3 a6 | c2 55 83 1e 03 0e 20 54 |U...\f..|.U.... T|
|00005fb0| 16 20 0e 20 2c 0e 1e e4 | 5f 0e 1e d2 a5 0e 1e e2 |. . ,...|_.......|
|00005fc0| a5 5b 0e 1e e3 a5 5c 5c | 5c 5c 5c 5c 5c 5c 29 16 |.[....\\|\\\\\\).|
|00005fd0| 30 0e 31 db 5f 0e 32 cc | 5c 5c 5c 5c 89 1e 1d db |0.1._.2.|\\\\....|
|00005fe0| a6 54 16 32 0e 1d db a5 | 16 31 29 0e 32 89 ce 55 |.T.2....|.1).2..U|
|00005ff0| 83 78 03 0e 31 d2 a6 c2 | 55 83 78 03 0e 31 e2 a6 |.x..1...|U.x..1..|
|00006000| c2 55 83 74 03 0e 31 e3 | a6 c2 55 83 78 03 e6 82 |.U.t..1.|..U.x...|
|00006010| 7d 03 e7 0e 32 53 48 0e | 31 45 41 41 40 53 1e 1e |}...2SH.|1EAA@S..|
|00006020| 0e 32 89 ce 55 83 ad 03 | 0e 31 d2 a6 c2 55 83 ad |.2..U...|.1...U..|
|00006030| 03 0e 31 e2 a6 c2 55 83 | a9 03 0e 31 e3 a6 c2 55 |..1...U.|...1...U|
|00006040| 83 ad 03 e6 82 b2 03 e7 | 0e 32 53 48 0e 31 45 40 |........|.2SH.1E@|
|00006050| 19 0e 32 89 ce 55 83 de | 03 0e 31 d2 a6 c2 55 83 |..2..U..|..1...U.|
|00006060| de 03 0e 31 e2 a6 c2 55 | 83 da 03 0e 31 e3 a6 c2 |...1...U|....1...|
|00006070| 55 83 de 03 e6 82 e3 03 | e7 0e 32 53 48 0e 31 45 |U.......|..2SH.1E|
|00006080| 41 40 1b 0e 32 89 ce 55 | 83 10 04 0e 31 d2 a6 c2 |A@..2..U|....1...|
|00006090| 55 83 10 04 0e 31 e2 a6 | c2 55 83 5c 66 04 0e 31 |U....1..|.U.\f..1|
|000060a0| e3 a6 c2 55 83 10 04 e6 | 82 15 04 e7 0e 32 53 48 |...U....|.....2SH|
|000060b0| 0e 31 45 41 41 40 1c 0b | 09 53 df 5f 5c 5c 1e 20 |.1EAA@..|.S._\\. |
|000060c0| 09 ce 56 83 53 04 0e 20 | 09 d2 5f e1 5c 5c cd a5 |..V.S.. |.._.\\..|
|000060d0| 5a 16 20 5c 66 d2 a6 c2 | 55 83 53 04 5c 66 e2 a6 |Z. \f...|U.S.\f..|
|000060e0| c2 55 83 4e 04 5c 66 e3 | a6 c2 55 83 53 04 0e 20 |.U.N.\f.|..U.S.. |
|000060f0| 54 16 20 0e 20 2c 0e 1e | e4 5f 0e 1e d2 a5 0e 1e |T. . ,..|._......|
|00006100| e2 a5 5b 0e 1e e3 a5 5c | 5c 5c 5c 5c 5c 5c 5c 29 |..[....\|\\\\\\\)|
|00006110| 16 2f 0e 30 53 1e 07 0e | 2f 0e 07 54 89 16 07 59 |./.0S...|/..T...Y|
|00006120| 85 c8 04 e9 0e 07 21 89 | 1e 33 40 1e 34 0e 33 41 |......!.|.3@.4.3A|
|00006130| 40 1e 35 0e 33 41 41 40 | 1e 36 09 c2 55 84 a3 04 |@.5.3AA@|.6..U...|
|00006140| 09 0e 34 55 83 c4 04 0b | c2 55 84 b0 04 0b 0e 35 |..4U....|.U.....5|
|00006150| 55 83 c4 04 5c 66 c2 55 | 84 bd 04 5c 66 0e 36 55 |U...\f.U|...\f.6U|
|00006160| 83 c4 04 c9 c5 0e 07 21 | 21 88 2c 82 73 04 2d 29 |.......!|!.,.s.-)|
|00006170| 87 22 20 5b 63 61 6c 65 | 6e 64 61 72 2d 62 75 66 |." [cale|ndar-buf|
|00006180| 66 65 72 20 6d 6f 6e 74 | 68 20 30 20 64 61 79 20 |fer mont|h 0 day |
|00006190| 79 65 61 72 20 63 61 6c | 65 6e 64 61 72 2d 67 72 |year cal|endar-gr|
|000061a0| 65 67 6f 72 69 61 6e 2d | 66 72 6f 6d 2d 61 62 73 |egorian-|from-abs|
|000061b0| 6f 6c 75 74 65 20 63 61 | 6c 65 6e 64 61 72 2d 61 |olute ca|lendar-a|
|000061c0| 62 73 6f 6c 75 74 65 2d | 66 72 6f 6d 2d 68 65 62 |bsolute-|from-heb|
|000061d0| 72 65 77 20 64 61 74 65 | 20 63 61 6c 65 6e 64 61 |rew date| calenda|
|000061e0| 72 2d 64 61 74 65 2d 69 | 73 2d 76 69 73 69 62 6c |r-date-i|s-visibl|
|000061f0| 65 2d 70 20 6d 61 72 6b | 2d 76 69 73 69 62 6c 65 |e-p mark|-visible|
|00006200| 2d 63 61 6c 65 6e 64 61 | 72 2d 64 61 74 65 20 64 |-calenda|r-date d|
|00006210| 69 73 70 6c 61 79 65 64 | 2d 6d 6f 6e 74 68 20 31 |isplayed|-month 1|
|00006220| 31 20 31 20 31 30 20 32 | 20 39 20 33 20 38 20 34 |1 1 10 2| 9 3 8 4|
|00006230| 20 37 20 35 20 64 69 73 | 70 6c 61 79 65 64 2d 79 | 7 5 dis|played-y|
|00006240| 65 61 72 20 6e 69 6c 20 | 79 32 20 6d 32 20 79 31 |ear nil |y2 m2 y1|
|00006250| 20 6d 31 20 31 32 20 2d | 32 20 6d 61 63 72 6f 2d | m1 12 -|2 macro-|
|00006260| 79 20 70 72 69 6f 72 2d | 79 65 61 72 73 20 33 31 |y prior-|years 31|
|00006270| 20 64 61 79 2d 6f 66 2d | 79 65 61 72 20 32 33 20 | day-of-|year 23 |
|00006280| 31 30 30 20 34 30 30 20 | 33 36 35 20 73 74 61 72 |100 400 |365 star|
|00006290| 74 2d 64 61 74 65 20 32 | 39 20 5b 33 31 20 32 38 |t-date 2|9 [31 28|
|000062a0| 20 33 31 20 33 30 20 33 | 31 20 33 30 20 33 31 20 | 31 30 3|1 30 31 |
|000062b0| 33 31 20 33 30 20 33 31 | 20 33 30 20 33 31 5d 20 |31 30 31| 30 31] |
|000062c0| 65 6e 64 2d 64 61 74 65 | 20 63 61 6c 65 6e 64 61 |end-date| calenda|
|000062d0| 72 2d 68 65 62 72 65 77 | 2d 66 72 6f 6d 2d 61 62 |r-hebrew|-from-ab|
|000062e0| 73 6f 6c 75 74 65 20 68 | 65 62 72 65 77 2d 73 74 |solute h|ebrew-st|
|000062f0| 61 72 74 20 68 65 62 72 | 65 77 2d 65 6e 64 20 68 |art hebr|ew-end h|
|00006300| 65 62 72 65 77 2d 79 31 | 20 68 65 62 72 65 77 2d |ebrew-y1| hebrew-|
|00006310| 79 32 20 36 20 6c 61 73 | 74 2d 64 61 74 65 20 66 |y2 6 las|t-date f|
|00006320| 69 72 73 74 2d 64 61 74 | 65 20 79 20 6d 20 68 2d |irst-dat|e y m h-|
|00006330| 64 61 74 65 20 68 2d 6d | 6f 6e 74 68 20 68 2d 64 |date h-m|onth h-d|
|00006340| 61 79 20 68 2d 79 65 61 | 72 5d 20 38 20 22 5c 0a |ay h-yea|r] 8 "\.|
|00006350| 4d 61 72 6b 20 64 61 74 | 65 73 20 69 6e 20 63 61 |Mark dat|es in ca|
|00006360| 6c 65 6e 64 61 72 20 77 | 69 6e 64 6f 77 20 74 68 |lendar w|indow th|
|00006370| 61 74 20 63 6f 6e 66 6f | 72 6d 20 74 6f 20 48 65 |at confo|rm to He|
|00006380| 62 72 65 77 20 64 61 74 | 65 20 4d 4f 4e 54 48 2f |brew dat|e MONTH/|
|00006390| 44 41 59 2f 59 45 41 52 | 2e 0a 41 20 76 61 6c 75 |DAY/YEAR|..A valu|
|000063a0| 65 20 6f 66 20 30 20 69 | 6e 20 61 6e 79 20 70 6f |e of 0 i|n any po|
|000063b0| 73 69 74 69 6f 6e 20 69 | 73 20 61 20 77 69 6c 64 |sition i|s a wild|
|000063c0| 63 61 72 64 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |card."])|.(defali|
|000063d0| 61 73 20 27 6c 69 73 74 | 2d 73 65 78 70 2d 64 69 |as 'list|-sexp-di|
|000063e0| 61 72 79 2d 65 6e 74 72 | 69 65 73 20 23 5b 28 64 |ary-entr|ies #[(d|
|000063f0| 61 74 65 29 20 22 c0 09 | 21 1a c0 0b 21 1c c5 5c |ate) "..|!...!..\|
+--------+-------------------------+-------------------------+--------+--------+